Select Code to Download

SHEET: {
    for my $sheet ( 0 .. ( $book->{SheetCount} - 1) ) {
...
        }
    } # next sheet
}

my $cell = $work_sheet->{Cells}[$row][$column];
$oWkC = $oWkS->{Cells}[$iR][$iC];

my %book_data;
SHEET: {
...
        }
    } # next sheet
}