if you're on unix/linux or have windows with cygwin installed..a combination of the usual suspects (utilities like sort, unix, join, diff) combined in a short pipeline would most likely achieve the desired outcome. it's not a perl solution, but then I don't like to code (and debug the code) when the result is easily achievable without even touching scripting.