# Do this using GREP

my @people = ('Jacob Smith', 'Michael Brown', 'Joshua Smith', 'Matthew
Cope');
@smiths = grep(/smith/i, @people);

##</code><code>##

No!

my $first = (grep /smith/i, @people)[0];

But inefficient, because it will grep more than necessary.

##</code><code>##

my ( $first) = grep ...;

##</code><code>##

my @l = qw( foo bar baz);
( my ( $first) = grep /ba/ => @l ) > 1 and warn "not unique\n";
print "first: $first\n";