Shell Programming and Scripting

perl -F, -lane'
    ($idx) = grep $F[$_] =~ /^CC$/, 0 .. $#F
      and @range = grep $_ != $idx, 0 .. $#F
      if $. == 1;
    print join ",", @F[@range];
  ' infile

1) open the file with filehandle
2) read the first line and split on ","
3) go through the array, check for "CC", if found, get the index of the array where its found and save to variable
4  while iterating through the rest of the lines
        split each line by ","
        remove the array item according to index found in step 3)
        join the array back
        print output