use strict;
use Data::Dumper;
my %testhash = {
  'key1' => 'val1' ,
  'key2' => 'val2'
};
print Dumper(\%testhash);

###

$VAR1 = {
          'HASH(0x2251b0)' => undef
        };