Форум Flasher.ru - чтение данных из xsl

Код:

Пример чтения данных: 

use strict;

use Spreadsheet::ParseExcel;

my $oExcel = new Spreadsheet::ParseExcel;



my $oBook = $oExcel->Parse('perl.xls');

my($iR, $iC, $oWkS, $oWkC);

print "FILE  :", $oBook->{File} , "\n";

print "COUNT :", $oBook->{SheetCount} , "\n";

print "AUTHOR:", $oBook->{Author} , "\n";

for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {

  $oWkS = $oBook->{Worksheet}[$iSheet];

  print "--------- SHEET:", $oWkS->{Name}, "\n";

  for(my $iR = $oWkS->{MinRow} ;

      defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {

    for(my $iC = $oWkS->{MinCol} ;

        defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {

      $oWkC = $oWkS->{Cells}[$iR][$iC];

      print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);

    }

  }

}

print "FILE :", $oBook->{File} , "\n";
print "COUNT :", $oBook->{SheetCount} , "\n";
print "AUTHOR:", $oBook->{Author} , "\n";
вот это зачем определяется?
И почему 3 вложенных фора, если просматривается двухмерный массыв? Это тоже не понятно.
Если можно то раскрой смысл переменных, это конечно и методом перебора можно определить. Но если есть умные парни, то почему не вывесить маленькое пособие по чтению xsl :)