use Spreadsheet::XLSX;
use Spreadsheet::Read;
 
 my $excel = Spreadsheet::XLSX -> new ('Sample.xlsx',);

#print "$excel \n";

my @sheets = qw(Sheet1 Sheet2);

my $sheet1 = $sheet[0];
my $sheet2 = $sheet[1];

 foreach my $sheet1{

my $sheet=$excel -> Worksheet();
 
        printf("Sheet: %s\n", $sheet);

my $maxrow = $sheet -> {MaxRow};

 my $Minrow = "3";
        
        $maxroww ||= $Minrow;

               
         foreach my $row ( $Minrow  .. $maxrow) {
         
                $sheet -> {MaxCol} ||= $sheet -> {MinCol};

                my @wanted_cols = (9, 10, 11, 21);
                
                my @wanted_cells = @{$sheet->{Cells}[$row]}[@wanted_cols];
                                               
                      
                        if ($wanted_cells) {
                            printf("( %s , %s ) => %s\n", $row, $col, $cell -> {Val});
                        }
                
        }

 }