Or

• This would be more idiomatically written as:

      foreach $e (@a, @b) { $union{$e}++ && $isect{$e}++ }
      @union = keys %union;
      @isect = keys %isect;