AA1	BB1

111	101
222	202
333	303
444	404
555	505
666	606
777	707
888	808
999	909

##</code><code>##

#!/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] 
}