Hmm, you could do something like this:

my $results = join "|", @results;
my $results_re = qr/$results/;
...
if ( $name =~ /$results_re/ ) {
  ...
}
[download]

Undoubtedly, there is an easier way to do it, but that's what springs to mind. Using qr// allows you to compile the regex only once if you re-use the same results (and regex) over and over.