# ... package State; use Moose; use overload '==' => \&compare; # ... print "\$h1 is identical.\n" if $master == $h1; print "\$h2 is identical.\n" if $master == $h2;