perl -Mstrict -wE'use constant X => qw(a b c); say "ok" if "a" == X'