open my $fh_xlsx, ">", "write_to.XLSX" or die "write_to.XLSX: $!";
 $fh_xlsx=1;
 chomp $row;
 print "@$row\n";


     }

 $csv->eof or $csv->error_diag;
 close $fh or die "a.csv: $!";
 close $fh_xlsx or die "write_to.XLSX: $!";