To give you a starter for your generic question, here a generic answer:

do something like

while ( my ($key,$value) = each %$h_ref1 ) {
   # Test key and value in %$h_ref2
   #  according to whatever criteria you need.
}
[download]

if the $value is a hash_ref again ( tested with ref or reftype from Scalar::Util ) do a second loop.

(keep in mind that you also need to test for keys present in hash2 which don't show up in the iterated hash1)

If you need a deeper nesting consider a recursive function where you pass two references.

(there are plenty of more elaborated examples already in our archives.)