$ perl -E'use constant X => qw(a b c); say "ok" if "a" ~~ X'