perl -Mstrict -w -MData::Dumper

my %hash = {};

print Dumper \%hash;

^D
Reference found where even-sized list expected at - line 2.
$VAR1 = {
          'HASH(0x8b36818)' => undef
        };