▼値を取り出して変数への格納 配列に格納されている順番に変数に格納されます @ar=(10,20,30,40); ($a,$b)=@ar; print "$a\n"; print "$b\n"; 実行結果 ▼末尾に値を追加 配列の最後に値が追加されます @ar=(10,20,30,40); push @ar,50; print $ar[0],"\n"; print $ar[1],"\n"; print $ar[2],"\n"; print $ar[3],"\n"; print $ar[4],"\n"; 実行結果