さっきPerlの質問した奴だけどできたよヽ(´ー｀)ノ
関数書いてくれた人とshift教えてくれた人ありがとう