Help for this page

Select Code to Download

Select or download this

$ perl -MDevel::Peek -E'@a=qw(a b c); $r=\$a[0]; Dump $r; @a=(); Dump 
+$r'
SV = IV(0xa95bc0) at 0xa95bd0
...
    PV = 0xa8ee40 "a"\0
    CUR = 1
    LEN = 16