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