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