my (%a, %b);
@a{@a} = ();
@b{@b} = ();
@a = grep {exists $b{$_}} @a;
@b = grep {exists $a{$_}} @b;