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

sub mysub { Dump(\@_); }

my $x = 10;

Dump(\$x);

mysub( $x => "a string" );

##</code><code>##

SV = RV(0x9fc41fc) at 0x9fc41f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9fd4418
  SV = IV(0x9fd4414) at 0x9fd4418
    REFCNT = 2
    FLAGS = (PADMY,IOK,pIOK)
    IV = 10
SV = RV(0x9fc41fc) at 0x9fc41f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9fd43f8
  SV = PVAV(0x9fc528c) at 0x9fd43f8
    REFCNT = 3
    FLAGS = ()
    ARRAY = 0x9fd81f8
    FILL = 1
    MAX = 3
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x9fd4414) at 0x9fd4418
      REFCNT = 2
      FLAGS = (PADMY,IOK,pIOK)
      IV = 10
    Elt No. 1
    SV = PV(0x9fc20e8) at 0x9fe0a08
      REFCNT = 2
      FLAGS = (POK,READONLY,pPOK)
      PV = 0x9fd56f8 "a string"\0
      CUR = 8
      LEN = 12