# verzeichnis/datei, änderungsdatum
my @files = map {
    $_->[2]
} sort {
    $b->[0] <=> $a->[0] or $b->[1] <=> $a->[1]
} map {
    [-d "$dir/$_" || 0, -M "$dir/$_", $_]
} readdir $dh;