You can also turn that loop into another hash operation, which will probably make it even faster.

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