$members = Set::Scalar->new(@members);

my $not_in = $s - $members;
my $in     = $s->intersect($members);

$s->delete($in->members);
$s->insert($not_in->members);