use strict;
use warnings;
use Data::Dumper;
use Test::More tests=>2;
my $h = { b => {} };
my $f = $h->{b}{c}{d} if exists($h->{b}{c}) and exists($h->{b}{c}{d});

is_deeply( $h, { b => {} }, 'no autovivification' );

is( $f, undef, 'no value assigned' );

##</code><code>##

1..2
ok 1 - no autovivification
ok 2 - no value assigned