You'll be happier if you learn a perlier syntax for doing iterations ala for (0 .. 999) { $expr = "\${$expr}[0]"; }. It's at least prettier than your excessivly verbose usage of for()

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;
[download]