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

my $csv = Text::CSV_XS->new({ 
  binary => 1, sep_char => ',', eol => "\n"}); 
  
my $xlsfile = 'c:/temp/xyz_stat1.xls';
my $workbook = Spreadsheet::WriteExcel->new($xlsfile) 
   or die $!;

my $num_files = $ARGV[0] || 0;
for my $k (1..$num_files){
  my $csvfile = $ARGV[$k];
  print "Opening $csvfile .. ";
  open my $fh, '<', $csvfile or die "Cannot open $csvfile : $!"; 
  my $sheet = $workbook->add_worksheet('sim_'.$k);
  my $ar = $csv->getline_all($fh);
  $sheet->write_col(0,0,$ar);
  close $fh;
  print scalar (@$ar). " lines read into sheet sim_$k\n";
}
$workbook->close;
print "$xlsfile created\n";
[download]

The issue is that the numbers are being written as strings or characters, second column onward. So it's not able to print it. Either of these two fixes will work.

1. Account for white spaces:

my @frame_stats = split(/,\s+/,$line);
[download]

2. Use "write_number":

$worksheet[$k]->write_number($frm_num, $col, $el);
[download]

Thanks a bunch for all your help!!