use constant a => 'b';
my %foo;
$foo{a} = "x";
print keys %foo;
__END__
a