red-orange
bluegreen

##</code><code>##

  chomp($color);
  $seen++ if $color =~ /^$newcolor$/;

##</code><code>##

  chomp($color);
  $seen++ if $color eq $newcolor;