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'};
	...
}