In the documentation I find this snippet:

The wanted() function does whatever verifications you
want.  $File::Find::dir contains the current directory
name, and $_ the current filename within that directory.
$File::Find::name contains the complete pathname to the
file. 

So I'd try this to start (untested):

my @mlc;
sub wanted {
    return unless $_ eq 'mlc';
    push @mlc, $File::Find::name;
}
find(\&wanted, '.');
foreach my $file (@mlc) {
    open(my $fh, $file) or die "Can't open '$file': $!";
    # per-file code goes here
}
[download]