Select Code to Download

c:\perl\perl>perl -de 0

...
  DB<4> x \%hash
0  HASH(0x1cbd91c)
   'HASH(0x1ca1f4c)' => undef

  DB<5> %hash = ( 'key1' => 'val1', 'key2' => 'val2' );

...
   'key1' => 'val1'
   'key2' => 'val2'
  DB<7>

print {"key"=>"value"}, "\n";