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