$ perl5.00504 -MData::Dumper -we '%h={};$h{a}=1;print Dumper \%h'
Reference found where even-sized list expected at -e line 1.
$VAR1 = {
          'a' => 1,
          'HASH(0x8922a64)' => undef
        };