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

##</code><code>##

$ 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";
'

##</code><code>##

__output__
red green blue yellow purple