$ perl -e '
my @colors = qw(red green blue yellow pink purple brown);
my @drop = qw(pink brown);
while ( my ($num, $val) = each @colors ) {
  if ($val eq $drop[0] or $val eq $drop[1]) {
    splice (@colors, $num, 1);
  }
}
print "@colors \n";
'