#!/usr/bin/perl
use strict;
use warnings;

#The homework question just defines @colors and @drop 
#and says to remove the things in drop from colors, that's it. 

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

my %drop;
foreach my $drop (@drop)
{
   $drop{$drop} = 1;  ## WILD!  Hash and scalar drop
                      ## have separate name spaces!
                      ## I would name different, but
                      ## just a namespace demo...
}

my @result;
foreach my $color (@colors)
{
   push @result, $color unless $drop{$color};
}

@colors = @result;

print "@colors \n";  #red green blue yellow purple