my %seen;
for my $item (@array1[1..$#array1], @array2[1..$#array2], ...) {
    $seen{$item}++;
    if ($seen{$item} > 1) {
        print "Element $item mehrfach: $seen{$item}\n";
    }
}