my @list = qw(frog turtle tadpole);
my $var = "turtle";

if ($var =~ m/@list/) {}; # not even close