My first thought (untested, but should work) :

sub compare_hohs {
    my ($localhref,$remhref) = @_;
    foreach my $mach (keys %{ $localhref }) {
       foreach my $file (keys %{ $localhref->{$mach} }) {
           # have machine and file
           if ($localhref->{$mach}{$file} != $remhref->{$mach}{$file} 
+) {
               print "$mach:$file mismatched\n";
               ## do something with mis matched
               ## trnasfer i presume
           }
       }
    }
}
[download]

---

Thus spake the Master Programmer:
"When you have learned to snatch the error code from the trap frame, it will be time for you to leave."
-- The Tao of Programming