mysub(a => \@array1, b => \@array2);

sub mysub {
    my %params = @_;
    print "$_\n" for @{ $params{a} };
}