my @sorted = sort {do {no warnings 'numeric'; $a <=> $b}} @unsorted;