$lc = List::Compare->new(\@Llist, \@Rlist); @intersection = $lc->get_intersection;