use strict;
use warnings;

use List::Compare;

my @Llist = qw(abel abel baker camera delta       edward fargo golfer);
my @Rlist = qw(          baker camera delta delta edward fargo golfer hilton);

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

my @intersection = $lc->get_intersection;

print join ", ", @intersection;

# Results:
# baker, camera, delta, edward, fargo, golfer