@A_not_B = grep { ! $B{$_} } @A;