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

##</code><code>##

2
2
2

##</code><code>##

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

##</code><code>##

2
3
4

##</code><code>##

if (!(sv = hv_store(...))) {
   SvREFCNT_dec(sv);
   ...
}