Help for this page
my @row=$page->next_row;
for ( my $c=0; $c<=$maxCol; $c++ ) { next if $row[$c] =~ /./; $row[$c]=$page->{sheet}->[$row]->[$c]->{Val}; }