@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 "…