my @list = qw/ frog turtle tadpole /;
my $find = "turtle";

if( grep { $_ eq $find } @list ) {
    print "Found $find.\n";
}