print join "\n", map {"$_->[0]"} sort {$a->[1] <=> $b->[1]} map {[$_, -M]} @DirList;