my @array1 = (
[qw( a b c )],
[qw( 1 2 3 )],
[qw( foo bar baz hoge )],
);
↑こんな感じのときに
a　　 1　　 foo
b　　 2　　 bar
c　　 3　　 baz
undef undef hoge
としたいんですが
>>81のpush付近を書きかえたらできそうなのでやってみます