Test your csv files with this basic program

#!perl
use strict;
use warnings;
use Text::CSV_XS;

my $dir = 'C:/Strawberry/perl_tests/';
my @AllFiles =  ('SKYCHAINALL.csv','CRISALL.csv');

for my $file (@AllFiles) { 
  print "\nFilename = '$file'\n";
  my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
  open my $fh, '<', $dir.$file or die "Could not open $dir$file: $!";
  while (my $row = $csv->getline($fh)) {
    print join "|",@$row[5,7..12,22],"\n";
  }
  close $fh;
}
[download]