my %h = map { $_ => 1 } @a;
@b = grep { ! exists $h{$_} } @b;