#!/usr/bin/perl
use strict;
use warnings;

use Spreadsheet::WriteExcel;

my @mydata = (
	['Item', 'Category', 'Price'],
	['Nails', 'Hardware', '5.25'],
	['Shirt', 'Clothing', '23.00']
	);

my $workbook = Spreadsheet::WriteExcel->new('test.xls');
my $worksheet = $workbook->add_worksheet();
$worksheet->write_col('A1', \@mydata);