Help for this page

Select Code to Download

Select or download this

N:\>perl -MDevel::Peek -e"my @x=(1..2); Dump($x[0]); $y=join '-',@x; D
+ump($x[0]);
SV = IV(0x182b3e4) at 0x2257e8
...
  PV = 0x22d3fc "1"\0
  CUR = 1
  LEN = 2

Select or download this
```
print join map { "$_" },@list;
```