@yum = map { my $yum = $_; (none { /$yum/ } @bad) ? $yum : () } @yum;