#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Spreadsheet::Read qw(ReadData);

my $book = ReadData ('aveidotvalues-3.xlsx');

print Dumper $book;

__END__

$ perl test.pl
$VAR1 = [
          {
            'parsers' => [
                           {
                             'version' => '0.15',
                             'type' => 'xlsx',
                             'parser' => 'Spreadsheet::XLSX'
                           }
                         ],
            'error' => undef,
            'sheet' => {},
            'version' => '0.15',
            'sheets' => 0,
            'type' => 'xlsx',
            'parser' => 'Spreadsheet::XLSX'
          }
        ];