for my $read_sheet ...
    for my $row ...
        for my $col ...
            my $cell = $read_sheet->{Cells}[$row][$col];
            $write_sheet->write($row, $col, $cell->{Val});
        ...
    ...
...