$ perl -MData::Dumper -e'%hoh = { foo => 1 }; print Dumper \%hoh'
$VAR1 = {
          'HASH(0x812f180)' => undef
        };