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

sub1(%args);

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