my @ary=qw/dog cat gnat/;
my $first=(grep {/at$/} @ary)[0];
print $first;
__END__
cat