my $hr1 = { 1 => 2 };
my $h2 = $hr1;
$hr2->{1} = 7; # das soll nicht $hr1 betreffen!