Re: How to check similarity of two hash tables

[RMGir]

Of course, the obligatory one-liner (ok, one-expression) version:

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