my $re = join '|', @names;
if($name =~ /^($re)$/o) ...