if( exists $foo->{bar}{anything}{you}{want} ){
}
##</code><code>##

if( my $want = Dive( $foo, qw/ bar anything you want / ) ){
...
}