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

Dump(\@ARGV);

mysub($ARGV[0], $ARGV[1]);

mysub(@ARGV);

exit(0);

sub mysub {
    print "mysub\n";
    Dump(\@_);
}
 
__END__

SV = RV(0x83591fc) at 0x83591f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x83693c0
  SV = PVAV(0x835a228) at 0x83693c0
    REFCNT = 2
    FLAGS = ()
    ARRAY = 0x0
    FILL = -1
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)
mysub
SV = RV(0x83590dc) at 0x83590d0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x8376420
  SV = PVAV(0x835a28c) at 0x8376420
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x838a418
    FILL = 1
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = PVLV(0x83871d4) at 0x83591f0
      REFCNT = 2
      FLAGS = (GMG,SMG)
      IV = 0
      NV = 0
      PV = 0
      MAGIC = 0x839e158
        MG_VIRTUAL = &PL_vtbl_defelem
        MG_TYPE = PERL_MAGIC_defelem(y)
      TYPE = y
      TARGOFF = 0
      TARGLEN = 1
      TARG = 0x83693c0
      SV = PVAV(0x835a228) at 0x83693c0
        REFCNT = 3
        FLAGS = ()
        ARRAY = 0x0
        FILL = -1
        MAX = -1
        ARYLEN = 0x0
        FLAGS = (REAL)
    Elt No. 1
    SV = PVLV(0x8387200) at 0x8359340
      REFCNT = 2
      FLAGS = (GMG,SMG)
      IV = 0
      NV = 0
      PV = 0
      MAGIC = 0x839eee8
        MG_VIRTUAL = &PL_vtbl_defelem
        MG_TYPE = PERL_MAGIC_defelem(y)
      TYPE = y
      TARGOFF = 1
      TARGLEN = 1
      TARG = 0x83693c0
      SV = PVAV(0x835a228) at 0x83693c0
        REFCNT = 3
        FLAGS = ()
        ARRAY = 0x0
        FILL = -1
        MAX = -1
        ARYLEN = 0x0
        FLAGS = (REAL)
mysub
SV = RV(0x83591fc) at 0x83591f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x83696f0
  SV = PVAV(0x835a23c) at 0x83696f0
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x83a5f30
    FILL = -1
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)