print "defined\n" if (exists($x->{fred}->{dave}));

##</code><code>##

{ print "defined\n" if (exists(%{$x->{fred}||last}->{dave})); }

##</code><code>##

print "defined\n" if (exists(%{$x->{fred}||{}}->{dave});