open FILE, "<", $file or die "open: $!"; 


   
        while (<FILE>)
        {
            my $line2 = $_;
    
            chomp $line2;
            my @line = split (/","/,$line2);
           
            if ( $line[0] =~ m/Name.ID/)
            {
                print "here \n";
                next;
            }
            else
            {
                print "$line[0] \n";
            }
            
           
            print "$line[0],$line[1],$line[2],$line[3],$line[4],$line[5],$line[6],$line[7],$line[8],$line[9],$line[10],$line[11],$line[12],$line[13],$line[14]";
 
        }
    }
}