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