shift関数 - 配列の先頭を取得

　配列の先頭の要素を取得するにはshift関数を使用します。先頭の要素は切り出され、元の配列からはなくなることに注意してください。

$ret = shift @array;

　shift関数のサンプルです。@numsが(1, 2, 3)であった場合は$firstには1が代入され、@numsは(2, 3)になります。

my @nums = (1, 2, 3);
my $first = shift @nums;