opendir(DIR,$directory);

my @files = map {
    $_->[1]
} sort {
    $b->[0] <=> $a->[0]
} map {
    [-M "$directory/$_", $_]
} readdir(DIR);

closedir(DIR);