This is a FAQ. Please type perldoc -q intersection or see perlfaq4, "How do I compute the difference of two arrays".