my $regex = join '|', map "\Q$_\E", @vals;
doSomething() if $data =~ $regex;

##</code><code>##

use Regex::PreSuf;

doSomething() if $data =~ presuf(@vals);

##</code><code>##

doSomething() if grep $data =~ /\Q$_/, @vals;