Вот выбрал время и подумал над твоей задачей:
-------
# Наберем массив:
my @mass = ();
for (1..4000) {
my $tmp = [];
for my $n (1..10) {
push @$tmp, int(rand(20000));
}
push @mass, [ genrstr(int rand(64)), $tmp ]; # genrstr - возвращает абракадабру заданой длины
}
# и отсортируем
my $time = gettimeofday; # засекаем время
$_->[1] = [ sort {$a <=> $b} @{$_->[1]} ] for @mass;
@mass = sort {$a->
print gettimeofday - $time; # 0,35 сек (с map\'ами выходило больше)
-----
Зы: Если мимо, то уж в следующий раз поточнее опиши условия. И ненадо так утрамбовывать код - его потом прочитать нельзя.