@sorted_names = @names[sort { $ages[$a] <=> $ages[$b] } 0..$#ages];