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

my $arr_ref = [ 1, 2, 4, 8, 16 ];
say $$arr_ref[2]; # ergibt 4
say $arr_ref->[2]; # dasselbe anders geschrieben, ergibt auch 4


my $h_ref = {
   Koordinaten => { Laenge => 13.4711, Breite => -42.0815},
   Ortsnamen => [ 'boodorf', 'Boohtan', 'Boost' ]
};
say $h_ref->{Ortsnamen}->[0]; # ergibt boodorf
say $$h_ref{Ortsnamen}[0];    # ergibt boodorf

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use utf8;

my %adresse = (
        Name => 'Bkah',
        Strasse => 'Morgula Av. 11-B',
        Land => 'Perlistan'
);
my %beleg_art = (
        Art => 'Rechnung'
);

my $href = {
        beleg_art => \%beleg_art,
        adresse   => \%adresse, 
};

my $pdf_file = create_pdf_v3($href);

sub create_pdf_v3 {
  my $href = shift;

  my %belege_hash   = %{ $href->{beleg_art} };
  my %adressen_hash = %{ $href->{adresse}   }; 
  
  print "Der Kunde ist ", $adressen_hash{Name};
  print " mit ", $belege_hash{Art};  
}

$href->{adresse}{Land} = 'Programming Republic of Perl';