Would the grep function suffice for this? If not there's always the Hash::Merge which you could put a simple wrapper around. Failing the above 2 suggestions perhaps you could write and upload a module to CPAN which performs the function you describe.
HTH

_________
broquaint