my %myhash = (); $myhash{'key1'} = val1; $myhash{'key2'} = val2; testsub(\%myhash); sub testsub { my $reftohash = shift; print $reftohash->{'key1'}; print $reftohash->{'key2'}; }