Hi, try the function all in the core module List::Util.

use strict; use warnings; use feature 'say';
use List::Util 'any';

my @wanted = ( 'foo', 'bar', 'baz', 'missing' );
my @source = ( 'foo 42', '666 bar', 'baz (qux)' );

for my $wanted ( @wanted ) {
    if ( any { /$wanted/ } @source ) {
        say "Found $wanted";
    } else {
        say "Cannot find $wanted";
    }
}
[download]

Output:

$ perl 1195036.pl
Found foo
Found bar
Found baz
Cannot find missing
[download]