my @sorted= do {
    local( $^W )= 0;
    sort { $a <=> $b } @data;
};