@keys_existing_in_both = grep defined $hash2{$_}, keys %hash1; [download]
In reply to Re: Need to get the intersect of hashes by grizzley in thread Need to get the intersect of hashes by jbush82