use constant KEY => 'foobar';
use Data::Dumper;
print Dumper({ KEY ,=> 'value' });