my %s; undef @s{@source};
my %t; undef @t{@target};

my %tns = %t; delete @tns{@source};
my %snt = %s; delete @snt{@target};

my @tns = keys %tns;
my @snt = keys %snt;