in reply to help with a function that will cut out redundancy across two lists
I can't speak to the quality of the Sams Learn Perl in 21 Days today, but if it's as it was about a decade ago, these suggestions may be helpful: