shiftは、引数の配列の要素を全体的にシフトして、先頭の要素を取り除き、それをリターン値とします。 サンプル（shift.pl） use strict; use warnings; my @array =('A01', 'B02', 'C03'); my $top = shift @array; print $top, "\n"; 実行結果 C:\Document…