my @row=$page->next_row;

##</code><code>##

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