use strict;
use Spreadsheet::XLSX;

my $excel = Spreadsheet::XLSX -> new ('build.xlsx');
my $sheet = $excel->Worksheet('Sheet1');
my ($row_min,$row_max) = $sheet->row_range();
my @col=();
for my $row ($row_min..$row_max){
  $col[0] = $sheet->{Cells}[$row][0]->{Val};
  $col[3] = $sheet->{Cells}[$row][3]->{Val};
  print "$row $col[0] $col[3] \n"
}