Corion++. Really, you said it all. :)

Hi, vikram007:
This can give you a kind of push, but really just like Corion said you need get into this Spreadsheet::WriteExcel::Examples

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>);

__DATA__
20 50 12 56 78 90 
78 56 23 80 34 67
[download]