#!/usr/bin/perl
use warnings;
use Spreadsheet::WriteExcel;

  # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel->new('perl.xls');

    # Add a worksheet
    $worksheet = $workbook->add_worksheet;


# write file to column A
open (IN, "column1.txt");
$count = 0;

while (<IN>) {
$count ++;
chomp ($_);
$worksheet->write("A$count", $_);
}
close IN;

<STDIN>;