#!/usr/bin/perl
use strict;
use warnings;
use strict;
use Data::Dumper;
use Spreadsheet::Read;

my $read = ReadData("C:/SLB/Dashboard/Perl/test.xlsx");
my $sheet = $read->[1];
my @row = Spreadsheet::Read::row($sheet,4);
#print Dumper @row;

foreach my $row (1..$read->[2]{maxrow}) {

    print $read->[2]{cell}[$row][2] 
}