my @pats = /one/, /two/, /three/;
say "matched" if $string ~~ any @pats;

##</code><code>##

my $any = any @pats;
$string ~~ $any;

##</code><code>##

given $string {
    when $any { ... } # won't work if $any is a junction
}