http://www.perlmonks.org?node_id=905926


in reply to help with a function that will cut out redundancy across two lists

List::Compare does that and more:
use List::Compare; use Data::Dumper; @Llist = qw(abel abel baker camera delta edward fargo golfer); @Rlist = qw(baker camera delta delta edward fargo golfer hilton); $lc = List::Compare->new(\@Llist, \@Rlist); #Get those items which appear at least once in both lists (their inter +section). @intersection = $lc->get_intersection; print Dumper \@intersection;

Cheers,

Brent

-- Yeah, I'm a Delt.