in reply to help with a function that will cut out redundancy across two lists
The following resource hopefully will inspire what you need:
perldoc - perlfaq4: How do I compute the difference of two arrays? How do I compute the intersection of two arrays?