my @sorted = sort { no warnings; $a <=> $b } @data;