#!/usr/bin/perl -w
use strict;
use warnings;

my %hash = (a=>'b',c=>'d');
call_sub (\%hash);
sub call_sub {
    my ($local_hashref) = @_;
    print "erhalte: fuer a: " . $local_hashref->{a} . "\n";
    print "erhalte: fuer c: " . $local_hashref->{c} . "\n";
}