>perl -wMstrict -le
"use constant KEY => 'foobar';
 use Data::Dumper;
 print Dumper({ KEY ,,,,,, 'value' });
"
$VAR1 = {
          'foobar' => 'value'
        };