This is just a variation on one of the most asked questions, and therefore a FAQ.

Study perldoc -q intersection, and come back if you have some code to show.

Abigail