print() on unopened filehandle Dumper at ./minitest.pl line 33.

##</code><code>##

my $sheet_count = $book->[0]{sheets};

##</code><code>##

$sheet = $book->[$sheet_index] or next;

##</code><code>##

use warnings;
use strict;