return unless(defined($oWkS->{MaxRow})); for my $iR ( $oWkS->{MinRow}..$oWkS->{MaxRow} ) { my @list=(); next unless(defined($oWkS->{MaxCol})); for my $iC ($oWkS->{MinCol}..$oWkS->{MaxCol}) { my $oWkC = $oWkS->{Cells}[$iR][$iC]; push(@list,$oWkC?$oWkC->Value:''); } print $OUTPUT join(';',@list)."\r\n"; }