my $re = join '|', map{quotemeta}@vals;
$re = qr/$re/;
if ( $var =~ m/$re/ ) { blah }