my @sorted = sort { -M $b <=> -M $a } @files;