my %sorted_index;
@sorted_index{@sorted_array} = 0..$#sorted_array;