#!/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 = map{$_ =>1}@drop;
@colors = grep{!$drop{$_}}@colors;

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