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;