Help for this page
red-orange bluegreen
chomp($color); $seen++ if $color =~ /^$newcolor$/;
chomp($color); $seen++ if $color eq $newcolor;