shiftの使い道

shiftは、引数の配列の要素を全体的にシフトして、先頭の要素を取り除き、それをリターン値とします。

サンプル（shift.pl）

use strict;
use warnings;
my @array =('A01', 'B02', 'C03');
my $top = shift @array;
print $top, "\n";

実行結果

C:\Documents and Settings\wk>shift.pl
A01

しかし、shiftの引数の配列を指定しないケースを見かけます。
これは、sub内では、「@_」で、sub外では、「@ARGV」がデフォルトの配列になります。
ちなみに、「@_」は、サブルーチンの引数の配列で、「@ARGV」は、コマンドラインの引数の配列です。