my %sorted_index;
$sorted_index{$sorted_array[$_]} = $_ foreach 0..$#sorted_array;