#Beispiel:
sub testfunc (\@\@) {
    my @a1 = @{shift() };
    my @a2 = @{shift() };

    return "\@1=@a1\n", "\@2=@a2\n"
}

my @array1 = qw (1 2 3);
my @array2 = qw (A B C);

print testfunc( @array1, @array2);