$ perl -Mstrict -MData::Diver=Dive -MData::Dumper -wE '
my $h; $h->{foo}->{bar}->{baz} = "qux";
say Dumper $h;
say Dive( $h, qw/ foo bar baz / ) ? 1 : 0;
say Dive( $h, qw/ foo NOT baz / ) ? 1 : 0;
say Dumper $h;
'
$VAR1 = {
          'foo' => {
                     'bar' => {
                                'baz' => 'qux'
                              }
                   }
        };

1
0
$VAR1 = {
          'foo' => {
                     'bar' => {
                                'baz' => 'qux'
                              }
                   }
        };