>400
my @da = (
　[qw(a b c d e)],
　[qw(f g h i j)],
　[qw(k l m n o)],
　[qw(p q r s t)],
);
foreach (@da) {
　　print $_->[0];
}

$> afkp

foreachとか使ったらあかんの？
（これ試してみるまで(qw(a b c), qw(d e f), qw(g h i)がフラットになるなんて知らんかった＿|￣|○）