push
push(ARRAY, LIST)

　配列の最後にリストを追加します。
　
　パラメータ:
　　　ARRAY 対象の配列
　　　LIST 追加するリスト
　戻り値：
　　　リストを追加後の配列の要素数

my @month = ("月曜", "火曜", "水曜");

push(@month, "木曜");
push(@month, ("金曜", "土曜", "日曜"));

# push関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @month = ("月曜", "火曜", "水曜");
push(@month, "木曜");

for (my $i = 0; $i <= $#month; $i++){
  print "$month[$i]\n";
}

print "\n";

push(@month, ("金曜", "土曜", "日曜"));

for (my $i = 0; $i <= $#month; $i++){
  print "$month[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test1-1_u.pl | nkf -w
月曜
火曜
水曜
木曜

月曜
火曜
水曜
木曜
金曜
土曜
日曜
[xxxxxxxx@dddddddddd Array]$ 

pop
pop([ARRAY])

　配列の最後の要素を取り出します。要素数は1つ減ります。
　
　パラメータ:
　　　ARRAY 対象の配列
　戻り値：
　　　配列の最後の要素

my @month = ("月曜", "火曜", "水曜");
my $val = pop(@month);

# pop関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @month = ("月曜", "火曜", "水曜");

print "配列に含まれる要素:\n";
for (my $i = 0; $i <= $#month; $i++){
  print "$month[$i]\n";
}

my $val = pop(@month);

print "\n取得した要素:\n";
print "$val\n";

print "残りの要素:\n";
for (my $i = 0; $i <= $#month; $i++){
  print "$month[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test2-1_u.pl | nkf -w
配列に含まれる要素:
月曜
火曜
水曜

取得した要素:
水曜
残りの要素:
月曜
火曜
[xxxxxxxx@dddddddddd Array]$ 

unshift
unshift(ARRAY, LIST)

　配列の先頭にリストを追加します。
　
　パラメータ:
　　　ARRAY 対象の配列
　　　LIST 追加するリスト
　戻り値：
　　　リストを追加後の配列の要素数

my @city = ("東京", "大阪");

unshift(@city, "名古屋");
unshift(@city, ("札幌", "福岡"));

# unshift関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @city = ("東京", "大阪");

unshift(@city, "名古屋");

for (my $i = 0; $i <= $#city; $i++){
  print "$city[$i]\n";
}

print "\n";

unshift(@city, ("札幌", "福岡"));

for (my $i = 0; $i <= $#city; $i++){
  print "$city[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test3-1_u.pl | nkf -w
名古屋
東京
大阪

札幌
福岡
名古屋
東京
大阪
[xxxxxxxx@dddddddddd Array]$ 

shift
shift(ARRAY)

　配列の先頭の要素を取り出します。要素数は1つ減ります。
　
　パラメータ:
　　　ARRAY 対象の配列
　戻り値：
　　　配列の先頭の要素

my @city = ("東京", "大阪");
my $val = shift(@month);

# shift関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @city = ("東京", "大阪");

print "配列に含まれる要素:\n";
for (my $i = 0; $i <= $#city; $i++){
  print "$city[$i]\n";
}

my $val = shift(@city);

print "\n取得した要素:\n";
print "$val\n";

print "残りの要素:\n";
for (my $i = 0; $i <= $#city; $i++){
  print "$city[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test4-1_u.pl | nkf -w
配列に含まれる要素:
東京
大阪

取得した要素:
東京
残りの要素:
大阪
[xxxxxxxx@dddddddddd Array]$ 

delete
delete(EXPR)

　引数に指定された配列要素を削除します。
　
　パラメータ:
　　　EXPR 配列の要素
　戻り値：
　　　削除された値

my @city = ("東京", "大阪", "名古屋");
delete($city[1]);

# delete関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @city = ("東京", "大阪", "名古屋");

my $val = delete($city[2]);
print "削除された値:$val\n\n";

print "残っている要素\n";
foreach my $i(0 .. $#city){
  print "$city[$i]\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test5-1_u.pl | nkf -w
削除された値:名古屋

残っている要素
東京
大阪
[xxxxxxxx@dddddddddd Array]$ 

reverse
reverse(LIST)

　引数に指定したリストに含まれる要素を逆に並べたリストを返します。
　
　パラメータ:
　　　LIST 対象となるリスト(又は配列)
　戻り値：
　　　並び替えられたリスト

my @city = ("東京", "大阪", "名古屋");
my @rcity = reverse(@city);

# reverse関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @city = ("東京", "大阪", "名古屋");
foreach my $var(@city){
  print "$var\n";
}

print "\n逆に並べ替えます\n\n";

my @rcity = reverse(@city);
foreach my $var(@rcity){
  print "$var\n";
}

[xxxxxxxx@dddddddddd Array]$ perl test6-1_u.pl | nkf -w
東京
大阪
名古屋

逆に並べ替えます

名古屋
大阪
東京
[xxxxxxxx@dddddddddd Array]$