foreach $Y (@dependantFiles) { foreach $X (@namedFiles) { if( $X =~ m/\Q$Y\E/i) { print "Found it\n" last; } } }