use strict;
use warnings;
use Devel::Peek;

sub subx {
    Dump(\@_);
    $_[0] += 10;
    Dump(\@_);
}

my $a = 5;
Dump($a);
subx(++$a);
Dump($a);
subx($a++);
Dump($a);
__END__
SV = IV(0x9ba875c) at 0x9ba8760
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 5
SV = RV(0x9b981fc) at 0x9b981f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9ba8780
  SV = PVAV(0x9b9928c) at 0x9ba8780
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x9bacbd8
    FILL = 0
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x9ba875c) at 0x9ba8760
      REFCNT = 2
      FLAGS = (PADMY,IOK,pIOK)
      IV = 6
SV = RV(0x9b981fc) at 0x9b981f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9ba8780
  SV = PVAV(0x9b9928c) at 0x9ba8780
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x9bacbd8
    FILL = 0
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x9ba875c) at 0x9ba8760
      REFCNT = 2
      FLAGS = (PADMY,IOK,pIOK)
      IV = 16
SV = IV(0x9ba875c) at 0x9ba8760
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 16
SV = RV(0x9b981fc) at 0x9b981f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9b98340
  SV = PVAV(0x9b9923c) at 0x9b98340
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x9bb7888
    FILL = 0
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x9bb541c) at 0x9bb5420
      REFCNT = 2
      FLAGS = (PADTMP,IOK,pIOK)
      IV = 16
SV = RV(0x9b981fc) at 0x9b981f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9b98340
  SV = PVAV(0x9b9923c) at 0x9b98340
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x9bb7888
    FILL = 0
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x9bb541c) at 0x9bb5420
      REFCNT = 2
      FLAGS = (PADTMP,IOK,pIOK)
      IV = 26
SV = IV(0x9ba875c) at 0x9ba8760
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 17