>perl -E"use constant X => qw(a b c); say 'ok' if 'a' ~~ @{[ X ]}"
ok