foreach $Y (@dependantFiles) { foreach $X (@namedFiles) { if (index(lc($X), lc($Y)) >= 0) { print "Found it\n" last; } } }