opendir DIR, ".";
my @array = sort {-M $a <=> -M $b} readdir DIR;
closedir DIR;