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};
    }
  }
}