#!/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};  
}