@a = grep not exists $in_b{$_}, @a;
@b = grep not exists $in_a{$_}, @b;