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;