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