foreach my $WorksheetObject (@{$BookObject->{Worksheet}}) { print "\n"; for(my $RowIndex = '0'; # starting at minimu+m row value defined $WorksheetObject->{MaxRow} && $RowIndex <= '7'; # ending at maximum +row value $RowIndex++) { print ""; for (my $ColumnIndex = '0'; defined $WorksheetObject->{MaxCol} && $ColumnIndex <= '2'; $ColumnIndex++) { my $CellObject = $WorksheetObject->{Cells}[$RowIndex][$ColumnIndex]; # get cell #print "($RowIndex, $ColumnIndex)", print "" if ($CellObject); } print "\n"; } print "
" . $CellObject->Value . "
\n"; }