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