> perl -de0
...
  DB<1> $a->{b}{c}{d}="X"

  DB<2> x $a
0  HASH(0x32445c8)
   'b' => HASH(0x3244220)
      'c' => HASH(0x3244130)
         'd' => 'X'
  DB<3>