my @dirfiles =
    map $_->[0],
    sort { $a->[1] <=> $b->[1] }
    map [ $_, +(stat "$dirname/$_")[9] ],
    grep $_ ne '.' and $_ ne '..',
    readdir ORDERS;