Any ~~ Array
match against an array element
grep $a ~~ $_, @$b

##</code><code>##

Any ~~ Regex
pattern match
$a =~ /$b/

##</code><code>##

use feature qw( say );

my @pats = map qr/$_/, qw( a c );

for (qw( aaa bbb ccc ddd )) {
   say if $_ ~~ @pats;
}

##</code><code>##

aaa
ccc