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";
    }
}