my $div;
$myarray[$_] *= ++$div / @myarray for sort { $myarray[$a] <=> $myarray[$b] } 0..$#myarray;