Select Code to Download

    @union = @intersection = @difference = (); 
    %count = (); 
...
          push @union, $element; 
          push @{ $count{$element} > 1 ? \@intersection : \@difference
+ }, $element; 
    }