$vars = {
	'script'	=> "template.pl",
	'filenumber'	=> $filenumber,
	'results'	=> $results_hash_ref,
};

##</code><code>##

ATGF::PDF::Charges::write_excel($vars);

##</code><code>##

sub write_excel {
	my $var_ref = shift;
	#print_debug(Dumper $var_ref);
	my $Excel = Win32::OLE->new('Excel.Application', 'Quit')
		or die Win32::OLE->LastError;

	$Excel->{Visible} = 1;

	my $Book = $Excel->Workbooks->Open(
	# Filename,[UpdateLinks],[ReadOnly],[Format],[Password],[WriteResPassword],
	# [IgnoreReadOnlyRecommended],[Origin],[Delimiter],[Editable],[Notify],[Converter],[AddToMru]
		$ExcelFile,undef,0,undef,undef,undef, 
		undef,undef,undef,undef,0,undef,0
	);

	my $Sheet = $Book->Worksheets(1);

	# Subject Property Column
	my $address  = "$var_ref->{results}{'Street'}\n";
	$address    .= "$var_ref->{results}{'Street2'}\n" if (length($var_ref->{results}{'Street2'}) > 0 );
	$address    .= "$var_ref->{results}{'City'}, " if (length($var_ref->{results}{'City'}) > 0 );
	$address    .= "$var_ref->{results}{'State'} " if (length($var_ref->{results}{'State'}) > 0 );
	$address    .= "$var_ref->{results}{'Zip5'}" if ($var_ref->{results}{'Zip5'} != 0 );
	$address    .= "-$var_ref->{results}{'Zip4'}" if ($var_ref->{results}{'Zip4'}!= 0 );
	
	$Sheet->Range("A3")->{'Value'}  = $address;
	##########################################################
	# line 47 from error message above is the following line #
	##########################################################
	$Sheet->Range("A6")->{'Value'}  = $var_ref->{results}{'Legal'};
	$Sheet->Range("B8")->{'Value'}  = $var_ref->{results}{'PIN'};
	$Sheet->Range("B9")->{'Value'}  = $var_ref->{results}{'PIN2'};
	$Sheet->Range("B10")->{'Value'} = $var_ref->{results}{'PIN3'};
	...
}

##</code><code>##

my $legal = $var_ref->{results}{'Legal'};
$Sheet->Range("A6")->{'Value'}  = $legal;