foreach my $e (@array1, @array2) {
    $union{$e}++ && $intersect{$e}++
}