Select Code to Download

%hoh = {
    # ...
};

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

$ perl -we'%hoh = { foo => 1 };'
Reference found where even-sized list expected at -e line 1.

%hoh = (
    # ...
);