sub create_pdf_v3 { my ($ba,$adr) = @_; # jetzt gibt es %$ba und %$adr, echte Referenzen auf die Hashes # Beispiel Iteration: foreach my $ober (keys %$ba) { foreach my $unter (keys %{$ba->{$ober}}) { print "ich bin eine Referenz: ".$ba->{$ober}{$unter}; } } }