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

sub mysub { Dump(\@_); }

my $x = 10;

Dump(\$x);

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