# ...
package State;
use Moose;
use overload '==' => \&compare;

# ... 
print "\$h1 is identical.\n" if $master == $h1;
print "\$h2 is identical.\n" if $master == $h2;