@sorted_indices = sort {...} (0..$#array); # as above
@sorted_array = map { $array[$_] } @sorted_indices;  #as above
my @to_position;
$to_position[ sorted_indices[ $_ ] ] = $_ foreach (0..$#array);  # this is new