use constant TEST => 'x';
my %h = (TEST => 1);
print foreach keys %hash;