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