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