my $code = "sub check { my \$val = shift; if (";
$code .= join (' or ', map { "\$val eq \"$_\""; } (@ceck_vals));
$code .= ") { return 1; } else { return 0; } }";
eval $code;

##</code><code>##

my %check = map { $_ => 1; } (@ceck_vals);
if ($check{$val}) { do_foo (); }

##</code><code>##

if (grep { $val eq $_ } (@check_vals)) { do_foo (); }

##</code><code>##

my $regex = join ('|', @check_vals);
if ($val =~ m/$re/) { do_foo (); }