pop

pop ARRAY

　ARRAYの末尾の値を削除して、その値を返します。
　ARRAYを省略した場合、サブルーチン内では@_、メインルーチン内では@ARGVが対象になります。

@foo = (1, 2, 3);

$hoge = pop @foo;
print "hoge=$hoge", "\n";

foreach $val (@foo) {
	print "foo=$val", "\n";
}