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