配列から値を取り出す(pop, shift)

;#
;#配列から値を取り出す。
;#

use strict;

#--------------------------#
#       配列を初期化       #
#--------------------------#
my @array = (1..5);

#--------------------------#
#       値を取り出す       #
#--------------------------#
#-- 先頭から取り出す --#
print shift(@array), "\n";

#-- 末尾から取り出す --#
print pop(@array), "\n\n";


#--------------------------#
#      実行後の配列は？    #
#--------------------------#
print "$_\n" foreach(@array);