my $areEqual = (keys %hash1 == keys %hash2) && 0 == grep {!exists $hash2{$_}} keys %hash1;