my $sheetcnt = $Book->Worksheets->Count();

foreach (2..$sheetcnt){
   print $Book->Worksheets($_)->{Name} ."\n";
   my $sheet = $Book->Worksheets($_);

   ##Do something with the sheet object##
}