my @b1 = (); push @b1, $_, 1 for @b; my %b = @b1;
my @c = grep !$b{$_}, @a;