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