use strict;
use warnings;

use Spreadsheet::XLSX;

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

my $col = 0; # Read col A , $col has to be a number

foreach my $sheet (@{$excel->{Worksheet}}) {

    printf("Sheet: %s\n", $sheet->{Name});
    $sheet->{MaxRow} ||= $sheet->{MinRow};

    foreach my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ) {

        my $cell = $sheet->{Cells}[$row][$col];
        if ($cell) {
            print $cell->{Val}, "\n";
        }
    }
}