The warning occurs because SheetCount is the index of the last worksheets +1. So I guess this is what you want (although I prefer the other method):

foreach (0 .. $book->{SheetCount} -1) {
    $sheet = $book->{Worksheet}[$_];
    print $sheet->{Name},"\n";
}
[download]

--
John.