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

print "Start\n";

my $workbook = Spreadsheet::WriteExcel->new("BA_Data.ods");
my $worksheet = $workbook->add_worksheet();
my ($x,$y) = (0,0);
 my @list = qw(13,92 12,98 101,13); 
 foreach my $c (@list){
    $worksheet->write($x, $y++, $c);     
}
$workbook->close();