gistfile1.pl

#!/usr/bin/perl

use Devel::Peek;

sub foo {
    print Dump( \@_ );
}

my @list = qw(1 2 3);
foo(@list);
print Dump(\@list);

__END__
SV = IV(0x7fe622802428) at 0x7fe622802438
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x7fe622810088
  SV = PVAV(0x7fe622005fe8) at 0x7fe622810088
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x7fe621e01e60
    FILL = 2
    MAX = 2
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = PV(0x7fe622004e80) at 0x7fe6220040e8
      REFCNT = 2
      FLAGS = (POK,pPOK)
      PV = 0x7fe621e01cc0 "1"\0
      CUR = 1
      LEN = 16
    Elt No. 1
    SV = PV(0x7fe622004f00) at 0x7fe622004268
      REFCNT = 2
      FLAGS = (POK,pPOK)
      PV = 0x7fe621e01d80 "2"\0
      CUR = 1
      LEN = 16
    Elt No. 2
    SV = PV(0x7fe622004f80) at 0x7fe622802420
      REFCNT = 2
      FLAGS = (POK,pPOK)
      PV = 0x7fe621e01d90 "3"\0
      CUR = 1
      LEN = 16
SV = IV(0x7fe622802428) at 0x7fe622802438
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x7fe622802ca8
  SV = PVAV(0x7fe6220065b0) at 0x7fe622802ca8
    REFCNT = 2
    FLAGS = (PADMY)
    ARRAY = 0x7fe621e01d60
    FILL = 2
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = PV(0x7fe622004e80) at 0x7fe6220040e8
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x7fe621e01cc0 "1"\0
      CUR = 1
      LEN = 16
    Elt No. 1
    SV = PV(0x7fe622004f00) at 0x7fe622004268
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x7fe621e01d80 "2"\0
      CUR = 1
      LEN = 16
    Elt No. 2
    SV = PV(0x7fe622004f80) at 0x7fe622802420
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x7fe621e01d90 "3"\0
      CUR = 1
      LEN = 16