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