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