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