Personally, I think I'd just go for:

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

Those strings in a numeric context will compare properly but would produce warnings so I disable warnings. Also, each strings will only be converted to a number once after which that value will be cached in the SV (scalar value) making later comparisons as fast as is possible in Perl.

        - tye (but my friends call me "Tye")