@rows = map { $_->[0] } sort { my $cmp; foreach my $i (1 .. @sort_pos) { $cmp = $a->[$i] cmp $b->[$i]; last if $cmp != 0; } $cmp; } map { my @data; foreach my $pos (@sort_pos) { push(@data, $_->[$pos]); } [$_, @data]; } @rows;信じられない…