foreach (keys %{$adresse{Bernd}->{Autoren}}) { print $_, "\n"; foreach (@{$adresse{Bernd}->{Autoren}->{$_}}) { print "\t", $_, "\n"; } }