my $bottomRight = (split (/:/, $self->worksheet->UsedRange->address(0,0)))[-1];
    my ($colNameMax, $rowNumMax) = $bottomRight =~ /^([A-Z]+)(\d+)/;
	$self->lastRow( $rowNumMax );
	$self->maxCol( $colNameMax );

##</code><code>##

my $rowData = $sheet->Range("A$row:" . $self->maxCol . $row)->{Value};


##</code><code>##

foreach my $value (ref $rowData ? reverse @{ $rowData->[0] } : $rowData) {


##</code><code>##

my $fn = eval "sub {
	my \@F = \@_;
	no warnings 'uninitialized';
	$perlCode
}";
die $@ if $@;