use strict;
use warnings;

use constant ABC=> qw/wet ear rtf/;
use constant HEAD => ABC,qw/DEF GHI/;
print $_ foreach(HEAD);