perl -MDevel::Peek -e 'Dump [ split //, q{35312c38} ]'
SV = RV(0x817feb0) at 0x815399c
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x8153678
  SV = PVAV(0x8157c64) at 0x8153678
    REFCNT = 2
    FLAGS = ()
    IV = 0
    NV = 0
    ARRAY = 0x8175830
    FILL = 7
    MAX = 7
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = PV(0x8153cb0) at 0x8152ce8
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x816ea58 "3"\0
      CUR = 1
      LEN = 4
    Elt No. 1
    SV = PV(0x8153c74) at 0x8153660
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x816bd08 "5"\0
      CUR = 1
      LEN = 4
    Elt No. 2
    SV = PV(0x8153c8c) at 0x815366c
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x8174d50 "3"\0
      CUR = 1
      LEN = 4
    Elt No. 3
    SV = PV(0x8153d04) at 0x817d7dc
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x815b140 "1"\0
      CUR = 1
      LEN = 4