my $goodnames = qr/@{[join '|', map "\Q$_", sort @names]}/;

##</code><code>##

    my $goodnames = qr/@{[join'|',map"\Q$_",sort@names]}/;

;-)

##</code><code>##

    use Interpolation 
        OR => sub { join '|', map "\Q$_", sort @{$_[0]} };
 
    # and later...

    my $goodnames = qr/$OR{\@names}/;

##</code><code>##

    # Perl 6 code
    my $goodnames = /@names/;