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--;
	print $num, ": before: @colors\n";
	if ($colors[$num] eq $drop[0] or $colors[$num] eq $drop[1]){
		splice (@colors, $num, 1);
	}
	print $num, ":  after: @colors\n--\n";
}
print "@colors \n";