# given @a, @b
my @c = do {
    my %a;
    @a{@a} = ();   # slice of %a, values undef
    delete @a{@b}; # delete the @b slice
    keys %a;
};