*  DB<8> x \%{*Symbol::GEN0}
0  HASH(0x8aab260)
     empty hash
*  DB<9> x \%{*{Symbol::GEN0}}
0  HASH(0x8aab260)
     empty hash
*  DB<10> x \%{*{*Symbol::GEN0}}
0  HASH(0x8aab260)
     empty hash
*  DB<11> x \%{'' . *$s}
0  HASH(0x8aab260)
     empty hash
*  DB<12> x \%{*$s}
0  HASH(0x8a5b5e8)
   'goo' => 'ber'
*  DB<13> use Scalar::Util qw(refaddr)

  DB<14> x \%{*refaddr($s)}
syntax error at (eval 20)[/usr/share/perl/5.10/perl5db.pl:638] line 2, near "*refaddr("
*  DB<15> x \%{refaddr($s)}
0  HASH(0x8b6eea0)
     empty hash
*  DB<16> x \%{sprintf "%x", refaddr($s)}
0  HASH(0x8b73ef0)
     empty hash
*  DB<17> x \%{*{"$s"}}
0  HASH(0x8b73c10)
     empty hash