use strict;
use warnings;
use Data::Dump qw/pp dd/;
my @Llist = qw(abel abel baker camera delta edward fargo golfer);
my @Rlist = qw(baker camera delta delta edward fargo golfer hilton);
my %tmp;
@tmp{@Rlist} = @Rlist;
delete @tmp{@Llist};
pp values %tmp;