for my $wrksheet ( @{$new_book->{Worksheet}} ) {
    print $wrksheet->{Name}, "\n";
}