use warnings;
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 "$count \n";
	print "$num \n";
	print "$colors[$num] \n";
	if ($colors[$num] eq $drop[0] or $colors[$num] eq $drop[1]){ 
		splice (@colors, $num, 1);  
	}
	else {
	print "$colors[$num] was not dropped from the array \n";
	}
}
print "@colors \n";