use constant ABC  => qw/wet ear rtf/;
use constant HEAD => (ABC,"DEF","GHI");

print $_ for HEAD;