@diff = (); foreach $e (keys %union) { push(@diff, $e) unless $isect{$e}; }