my @sorted_indexes = sort { $array[$a] cmp $array[$b] } 0..$#array;