配列に配列をpush

@a1 = (['あ','い','う','え','お'],

　　　['か','き','く','け','こ']);
@a2 = ('さ','し','す','せ','そ');
push @a1,\@a2; #ここがポイント
for($i = 0; $i < scalar(@a1); $i++){
　for($j = 0; $j < scalar(@{$a1[$i]}); $j++){
　　print $a1[$i][$j]."　";
　}
　print "\n";
}

これで

あ　い　う　え　お

か　き　く　け　こ

さ　し　す　せ　そ

と表示できます。