open(my $data, '<', $file_c) or die "Could not open '$file_c' $!\n";


    while (my $line = <$data>) 

    {

     next if ($. == 1);
      
     chomp $line; 

     my @fields = split "," , $line; 

     print"$fields[0] fields[1]";

     }