my %result;
@result{ @goodstuff } = ();
delete @result{ @badstuff };
my @result = keys %result;