my @indexes = sort {$array[0]->[$b] <=> $array[0]->[$a]} (0..$#{$array[0]});

##</code><code>##

my @sort = map { my $a = $_; [ map { $t->[$_] } @indexes ] } @array;