$ perl -E'my @X = qw(a b c); say "ok" if "b" ~~ @X'