#!/usr/bin/perl 

use strict;


open(F,"<CBcopepodsfixed.csv");
my (@headers, @a);
my @tmp_h;
my $headers_set = 0;

open(H,">CBcopeodsfixed_new.csv");
while(<F>)
{
    my $this_line = $_;
    chomp($this_line);
    if ($this_line=~/^#/){next;}
    if (!$headers_set) {
      @headers = split(/,/,$this_line);
      
      for(my $i=4;$i<=$#headers;$i++)
      { push @tmp_h,$headers[$i];
        }
      $#headers=3;
      push @headers,"species","abundance";
      $headers_set = 1;
     #print "$headers[10]\n";
     my $headers=join(",",@headers);
     
     print H "$headers\n";
    }
    else {
      my @tmp;
      my @tmp_d;
      my @r = split(/,/,$this_line);
      #print "@r\n";
      for(my $i=4;$i<=$#r;$i++)
      { push @tmp_d,$r[$i];
        }
      
       $#r=3;
       for (my $j=0;$j<=$#tmp_h;$j++)
       {
        my $this_row=join(",",(@r,$tmp_h[$j],$tmp_d[$j]));
        print H "$this_row\n";
       }
       
    }
}

close(H);
close(F);