perldoc -q intersection