@a_minus_b = grep { my $a = $_; not grep { $a eq $_ } @b } @a;