map{$setB{$_}++}@listB;
@listC = grep{!$setB{$_}}@listA;