A         B
1 Number  Name
2       1 Fred
3      15 Barney
4      27 Homer

##</code><code>##

#! perl
use strict;
use warnings;
use Spreadsheet::XLSX;
use Data::Dump;

my $excel = Spreadsheet::XLSX->new('xyz.xlsx');

if (!defined $excel) {
    die "Error: " . $excel->error() . "\n";
}

print "Read with Spreadsheet::XSLX\n";
dd $excel;

##</code><code>##

21:43 >perl 1017_SoPW.pl
Read with Spreadsheet::XSLX
bless({
  Flg1904    => 0,
  FmtClass   => bless({}, "Spreadsheet::XLSX::Fmt2007"),
  SheetCount => 1,
  Worksheet  => [
                  bless({
                    Cells       => [
                                     [
                                       bless({ _Value => "Number", Format => "", Type => "Text", Val => "Number" }, "Spreadsheet::ParseExcel::Cell"),
                                       bless({ _Value => "Name", Format => "", Type => "Text", Val => "Name" }, "Spreadsheet::ParseExcel::Cell"),
                                     ],
                                     [
                                       bless({ _Value => 1, Format => "", Type => "Numeric", Val => 1 }, "Spreadsheet::ParseExcel::Cell"),
                                       bless({ _Value => "Fred", Format => "", Type => "Text", Val => "Fred" }, "Spreadsheet::ParseExcel::Cell"),
                                     ],
                                     [
                                       bless({ _Value => 15, Format => "", Type=> "Numeric", Val => 15 }, "Spreadsheet::ParseExcel::Cell"),
                                       bless({ _Value => "Barney", Format => "", Type => "Text", Val => "Barney" }, "Spreadsheet::ParseExcel::Cell"),
                                     ],
                                     [
                                       bless({ _Value => 27, Format => "", Type=> "Numeric", Val => 27 }, "Spreadsheet::ParseExcel::Cell"),
                                       bless({ _Value => "Homer", Format => "",Type => "Text", Val => "Homer" }, "Spreadsheet::ParseExcel::Cell"),
                                     ],
                                   ],
                    DefColWidth => 8.43,
                    MaxCol      => 1,
                    MaxRow      => 3,
                    MinCol      => 0,
                    MinRow      => 0,
                    Name        => "Paper.1",
                    path        => "worksheets/sheet1.xml",
                  }, "Spreadsheet::ParseExcel::Worksheet"),
                ],
}, "Spreadsheet::ParseExcel::Workbook")

21:43 >