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