use strict;
use warnings;

my @colors = qw(red green blue yellow pink purple brown);
my @drop = qw(pink brown);


foreach my $drop_color (@drop)
{  
	my $index = 0;
	foreach my $color (@colors)
	{
		if ( $color eq $drop_color )
		{		
			splice (@colors, $index, 1);
			last;
		}
		$index++;
    }
}
print "@colors \n";