配列の先頭に要素を追加する方法（unshift）

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

use strict;
 
my @names = ('三郎', '四朗', '五郎');
 
# 先頭に次郎を追加
unshift(@names, '次郎');
 
print "中身を確認します（１回目）\n";
 
foreach(@names){
  print "$_\n";
} 
 
# 先頭に太郎を追加
unshift(@names, '太郎');
 
print "中身を確認します（２回目）\n";
 
foreach(@names){
  print "$_\n";
}