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