my (%a, %b);
@a{@a} = ();
@b{@b} = ();
delete @a{@b};
delete @b{@a};
@a = keys %a;
@b = keys %b;