use warnings; use strict; use Spreadsheet::WriteExcel; my $wk = Spreadsheet::WriteExcel->new('test.xls'); my $ws = $wk->add_worksheet("set column"); # set column width $ws->set_column( 'A:F', 25 ); # write to these columns $ws->write_row( 0, 0, [qw{1 2 3 4 5 6}]); $ws->write( $., 0, [split] ) while (); __DATA__ 20 50 12 56 78 90 78 56 23 80 34 67