my @sorted =
    map substr($_, 4) =>
    sort
    map pack(`L',$_) . $_ => @files;
    # but see eyepopslikeamosquito's comment below

##</code><code>##

    sort { -s $a <=> -s $b } @files