use strict;
use warnings;

my $color1="chr,red,green,yellow";
my @color1=split(',',$color1);

my @colors=("red","black","blue","white","green","orange","yellow","pink",
            "purple","violet","cyan","magenta","navy","brown","gold","lime",
            "gray","burgundy","silver","clear","teal");
my $color;


foreach $color(@color1){
      my $i=0;
      if ($color eq $colors[$i]){
      print "$color here\n";
      }
      $i++;
}