my $row = 2; while () { chomp; @keepers = split /,/, $_, 10; pop @keepers; # only get first 9 columns $worksheet->write_row($row, 0, \@keepers, $cell_format); $row++; } $worksheet->write_formula('I1', '=SUM (I3:I262)'); $worksheet->set_column('I:I', undef, $trans_format);