配列の全要素に対して処理を行う�U

Perl の配列処理方法は色々ありますが、下記では whileステートメントと shift関数を組み合わせて使用しています。 shift関数は配列から最初の要素を取り出し、対象の配列の長さを一つ短くして取り出した値を返すと言う動作をしますが、取り除く要素が無くなれば偽となる値を返します。下記ではそのタイミングで whileステートメントを抜けています。