Select Code to Download

Consider finding the union and intersection of two unique arrays @a an
+d @b:

...
    @union = keys %union;
    @isect = keys %isect;

$isect{$_} > 1 && push(@isect,$_) for keys %isect;