配列に値を追加する(push, unshift)

;#
;#配列へ値を追加する
;#

use strict;

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

#--------------------------#
#       値を追加する       #
#--------------------------#
#-- 先頭に追加する --#
unshift(@array, 100);

#-- 末尾に追加する --#
push(@array, 500);


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