my %in_a;
@in_a{ @a } = (1) x @a;
my @only_b = grep !exists $in_a{ $_ }, @b;