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