@list = qw (one two three);
%args = ( arg1 => 'string', arg2 => 5, arg3 => \@list );

sub1(%args);

sub sub1 {
    print "$_\n" for @_;
}

##</code><code>##

arg1
string
arg2
5
arg3
ARRAY(0x17656b4)