my @x; push @x, { xx => \99 } for 1, 2; print "same ref\n" if $x[0]{xx} == $x[1]{xx};