Instead of readdir it is possible to use <*>

Here is a snippet:

my @e = sort { (stat($a))[9] <=> (stat($b))[9] } <*> ;
[download]