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