$ perl -MDevel::Peek \
   -e'$x="abc"; Dump($x); Dump($1); for $1 ($x) { Dump($1); }'
SV = PV(0xd0e9e0) at 0xd2b810
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0xd33f20 "abc"\0
  CUR = 3
  LEN = 10
  COW_REFCNT = 1
SV = PVMG(0xd23870) at 0xd36138
  REFCNT = 1
  FLAGS = (GMG,SMG)
  IV = 0
  NV = 0
  PV = 0
  MAGIC = 0xd44e10
    MG_VIRTUAL = &PL_vtbl_sv
    MG_TYPE = PERL_MAGIC_sv(\0)
    MG_OBJ = 0xd36120
    MG_LEN = 1
SV = PV(0xd0e9e0) at 0xd2b810
  REFCNT = 2
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0xd33f20 "abc"\0
  CUR = 3
  LEN = 10
  COW_REFCNT = 1