my ($r1, $r2) = @_;
...
print "$_ $h1{$_}\n" for keys %$r1;
print "$_ $h2{$_}\n" for keys %$r2;


##</code><code>##

print "$_ $r1->{$_}\n" for keys %$r1;
print "$_ $r2->{$_}\n" for keys %$r2;