my @values = qw( bcd efg hij klm );
print "not found" unless grep { 'abc' eq $_ } @values;