use B 'svref_2object';
my $something = "this is tadman's cached data";
my $something_obj = svref_2object(\$something);
my $something_refcnt = $something_obj->REFCNT;