>perl -E"@a = qw(a b); say @a ~~ 2 ? 'match' : 'no match'"
no match

>perl -E"@a = qw(a b); say @a ~~ (0+\@a) ? 'match' : 'no match'"
match