perldoc -q intersect