in reply to Search in array from match in another array, print once only.
Checkk the FAQ. Refer: perldoc -q intersection for the use of a hash in comparing arrays.