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

# update - better without -M in sort
opendir(D,$dir);
@files = map { $_->[1] } sort { $a->[0] <=> $b->[0] }
         map { [-M $_, $_] } grep {!/^\.\.?$/} readdir(D);