$VAR1 = { 'seeklib ' => 'SeekLib ', 'test_src ' => 'test_src ', 'frames ' 'st_vx6953_5m_bayer ' => 'ST_VX6953_5M_Bayer #### foreach my $filename(keys %hash) find(sub { push @{ $Hash_casemismatch{ $filename } }, grep( (/\/\Q$key\E#/), *.mk); }, $cwd); }