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

# Mein Versuch:

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