Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
    sort { -s $a <=> -s $b } @files
```