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