DB<1> x ${*STDIN}{goo} = "ber"
0  'ber'
  DB<2> x \%{*STDIN}
0  HASH(0x9730178)
   'goo' => 'ber'
  DB<3> x \%STDIN;
0  HASH(0x9730178)
   'goo' => 'ber'

  DB<4> use Symbol

  DB<5> x $s = Symbol::gensym
0  GLOB(0x99fecc8)
   -> *Symbol::GEN0
  DB<6> x ${*$s}{pea} = 'nut'
0  'nut'
  DB<7> x \%{*$s}
0  HASH(0x9965e48)
   'pea' => 'nut'