my @dependantFiles = ( 'aa', 'bb', 'cdef' ); my @namedFiles = ( 'cc', 'bb', 'dde' ); for my $y ( @dependantFiles ) { if( grep /$y/i, @namedFiles) { print "Found $y \n"; last; } else { print "not $y \n"; } }