use strict;
use warnings;

my (%mlc, $handle);
for (0..200) {
    if (-e ":dir$_:mlc") {
        open($handle, ":dir$_:mlc");
        $mlc{"dir$_"} = join '', <$handle>;
        close($handle);
    }
}

for (sort keys %mlc) {
    print "$_\n$mlc{$_}\n\n";
}