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