foreach (@{$address{Bernd}->{Books}}) { print $_, "\n"; }