Select Code to Download

my @order = sort {
    $Costs[$a]+$Trims[$a]*$Costs[$b] <=> $Costs[$b]+$Trims[$b]*$Costs[
+$a]
} 0..$#Costs;

my @order = sort {
    $Costs[$a]/(1-$Trims[$a]) <=> $Costs[$b]/(1-$Trims[$b])
} 0..$#Costs;

my @order = sort {
    $weight[$a] <=> $weight[$b]
} 0..$#Costs;