配列めも

perl - pushとか

@foo = (1,2,3);
push @foo, 10; # @foo = (1,2,3,10);
$bar = pop @foo; # $bar = 10;
unshift @foo, 0; # @foo = (0,1,2,3);
$bar = shift @foo; # $bar = 0;