Select Code to Download

for my $row (1..$row_max){
   my $valA = $sheet->{Cells}[$row][0]->{Val}; 
   my $valB = $sheet->{Cells}[$row][1]->{Val};
...
   $write_row++;
   # ...
 }

my $write_row = 1;
for my $row (1..$row_max){
...
     # ...
  }
}