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