sub Test
{
    my($arr1, $arr2) = @_;
    print "Array1: " . $_ . "\n" foreach (@$arr1);
    print "Array2: " . $_ . "\n" foreach (@$arr2);
}

# Mein Versuch:

Test(['Test1', 'Test2'], ['Test3', 'Test4']);

my @ar1 = (1,2,3);
my @ar2 = (6,7,8);
Test(\@ar1,\@ars);