Select Code to Download

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

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