print join "\n", sort @DirList;

##</code><code>##

print join "\n", sort {-M $a <=> -M $b} @DirList;