my $f;
$f = $h->{b}{c}{d} if exists($h->{b}{c}) and exists($h->{b}{c}{d});