my $bar = $foo->{a}->{d}; print %$bar if $bar;