Select Code to Download

use Devel::Peek qw(SvREFCNT);

...

undef $_ for $b, $c, $d, $h, $j;  # 1 = kill all refcnt contributors (
+except for $a itelf)
warn SvREFCNT($a), "\n";