Now you're making an expensive copy of a hash. You could just be using the references with:

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

Update:Thanks again David, yes, I meant:

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