#!/usr/bin/perl -w

use warnings;
use strict;
use Spreadsheet::XLSX;
use Date::Format;

my $fileName = "file path GOES HERE";
my $workbook = Spreadsheet::XLSX->new($fileName) or die "Unable to read the Excel file: $@$!";

for my $worksheet($workbook->worksheet("AMD 87 MAY 14")){
	
	my($firstRow, $lastRow) = $worksheet->row_range();
	my($firstCol, $lastCol) = $worksheet->col_range();
	
	for my $row($firstRow .. $lastRow){
		for my $col($firstCol .. $lastCol){
			
			my $cell = $worksheet->get_cell($row, $col);
			next unless $cell;
			
			print "Row, Col = ($row, $col)\n";
			print "Value = ", $cell->value(). "\n";
			
		}
	}
}