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