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 } } } }