shift ARRAY
shift

這個函數把數組的第一個值移出并且返回它，然后把數組長度減一并且把所有的東西都順移。如果在數組中不再存在元素，它返回 undef。

如果省略了 ARRAY，那么該函數在子過程和格式的詞法范圍里移動 @_；
它在文件范圍（通常是主程序）里移動 @ARGV。

子過程通常以拷貝它們的參數到詞法變量里開始，而 shift 可以用于這個目的：

sub marine {
my $fathoms = shift; # 深度
my $fishies = shift; # 魚的數量
my $o2 = shift; # 氧氣問題
# ...
}

總之就是shift沒有數組作為參數時，就是移動@_這個默認的參數。
perl里經常用這種缺省方法的。