See also How do I do a natural sort on an array?. I might do the above something like:

my @sorted= grep { s#0(.{4})#unpack"N",$1#ges; 1 } sort
    grep { s#(\d+)#"0".pack"N",$1#ge; 1 } @{[ @list ]};
[download]

Even though it is abusing grep a little. (:

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