http://d.hatena.ne.jp/unibon/20030919 の続きだが、入門書を見ていろいろ試していたら、 use strict; my @a0 = (0, 1, 2, 3); my @a1 = (10, 11, 12); my @a2 = (20, 21); my @x = (\@a0, \@a1, \@a2); for (my $i = 0; $i [$j]; if ($j > 0) { print ", "…

曇り。