@Array1 = ("A", "B", "C", "D");
@Array2 = ("J", "C", "T", "A");
foreach $e (@Array1, @Array2) {
    $union{$e}++ && $intersect{$e}++
}
@intersect = keys %intersect;