my %foo = ( 'bar' => undef );
print $foo{'bar'}->{'baz'} || "oops";