@new = sort { no warnings; $a <=> $b || $a cmp $b } @old;