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