use strict;
use warnings;

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