my %sorted_index = map {($_, $sorted_array[$_])} 0..$#sorted_array;