use B 'svref_2object';
 my $objref = {};
 my $another = $objref;
 print svref_2object($objref)->REFCNT;