my %one = ('a' => 'b');
my %two = ('b' => 'a');

my $ref1 = \%one;
my $ref2 = \%two;
if ($ref1 == $ref2) { print "Equal.\n" }
else                { print "Not equal.\n" }
$ref2 = $ref1;
if ($ref1 == $ref2) { print "Equal.\n" }
else                { print "Not equal.\n" }

##</code><code>##

Not equal.
Equal.