N:\>perl -MDevel::Peek -e"my @x=(1..2); Dump($x[0]); $y=join '-',@x; Dump($x[0]);
SV = IV(0x182b3e4) at 0x2257e8
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1
SV = PVIV(0x225ef4) at 0x2257e8
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 1
  PV = 0x22d3fc "1"\0
  CUR = 1
  LEN = 2

##</code><code>##

print join map { "$_" },@list;