Help for this page

Select Code to Download

Select or download this

$ perl -MDevel::Peek \
   -e'$x="abc"; Dump($x); Dump($1); for $1 ($x) { Dump($1); }'
...
  CUR = 3
  LEN = 10
  COW_REFCNT = 1