my $x;
for (1..3) {
   $h{hashslice} = \$x;
   print(Internals::SvREFCNT($x), "\n");
}