use strict;
use Spreadsheet::ParseExcel; 
my $BookObject = Spreadsheet::ParseExcel::Workbook->Parse("testbook.xls");
foreach my $WorksheetObject (@{$BookObject->{Worksheet}}) {

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