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