$i = 12;
$a = sub { $i };

##</code><code>##

B::svref_2object($a)->PADLIST->ARRAYelt(1)->ARRAYelt(1)->SV->object_2svref