use strict;
use warnings;

use Devel::Peek;

my @x = 1..3;

print "Dump of \@x:\n";
Dump \@x;

$#x = -1;

my @y = 1;
print "\nDump of \@y:\n";
Dump \@y;
print "\nDump of \@x:\n";
Dump \@x;

__END__
Dump of @x:
SV = RV(0x8138618) at 0x811b574
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x8128d68
  SV = PVAV(0x811c904) at 0x8128d68
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY)
    IV = 0
    NV = 0
    ARRAY = 0x8154d00
    FILL = 2
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x81286a8) at 0x811b400
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 1
    Elt No. 1
    SV = IV(0x81286ac) at 0x811b4b4
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 2
    Elt No. 2
    SV = IV(0x81286a4) at 0x811b538
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 3

Dump of @y:
SV = RV(0x8138618) at 0x811b4b4
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x8144dc8
  SV = PVAV(0x811c95c) at 0x8144dc8
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY)
    IV = 0
    NV = 0
    ARRAY = 0x814abd8
    FILL = 0
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x81286a8) at 0x811b400
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 1

Dump of @x:
SV = RV(0x8138618) at 0x811b4b4
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x8128d68
  SV = PVAV(0x811c904) at 0x8128d68
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY)
    IV = 0
    NV = 0
    ARRAY = 0x8154d00
    FILL = -1
    MAX = 3
    ARYLEN = 0x811b574
    FLAGS = (REAL)