use Scalar::Util qw(refaddr);

for (1 .. 10) {

	print refaddr { foo => 1 }, "\n";
	
}