use warnings;
use strict;
my $file_c = "file1.csv";
open(my $data, '<', $file_c) or die "Could not open  $!\n ";

    while (my $line = <$data>) 
    {

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

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

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

     }