Select Code to Download

my @ix = sort { $myarray[$b] <=> $myarray[$a] } 0..$#myarray;
...

print "@myarray\n"

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