DB<2> $s = Symbol::gensym

  DB<3> x ${*$s}{goo} = 'ber'
0  'ber'
*  DB<4> x \%{*$s}{goo}
syntax error at (eval 8)[/usr/share/perl/5.10/perl5db.pl:638] line 2, near "}{goo"
*  DB<5> x \%{*$s}
0  HASH(0x86285e8)
   'goo' => 'ber'
*  DB<6> x \%{*Symbol::GEN0}
0  HASH(0x87144e0)
     empty hash
*  DB<7> x ${*Symbol::GEN0}{goo}
0  undef
  DB<8> x $]
0  5.010001
  DB<9> x $s
0  GLOB(0x86285b8)
   -> *Symbol::GEN0