my $foo = undef; $foo->{'bar'}{'bletch'}{'sneeze'} ++;