foreach my $filename(keys %hash)

find(sub {
   push @{ $Hash_casemismatch{ $filename } }, grep( (/\/\Q$key\E#/), *.mk);

}, $cwd);

}