くだすれPerl（超初心者用）3

[0081 nobodyさん 2009/05/13(水) 22:34:27 ID:???]

my @array2;
for my $arrayref (@array1) {
my @array = @$arrayref;
my $idx = 0;
push(@{ $array2[$idx++] }, $_) for @array;
}