my %listA;
@listA{@a}=();
delete @listA{@b};
@c = keys %listA;