my @a_not_b; { local @_{@a} = (); delete @_{@b}; @a_not_b = keys %_; }