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