my $FName = $results->{FName};   
my $LName = $results->{LName};   
my $AddrLine1 = $results->{AddrLine1};   
my $AddrLine2 = $results->{AddrLine2};  
my $City = $results->{City};  
my $Zip = $results->{Zip};  
my $WAddrLine1 = $results->{WAddrLine1};  
my $WAddrLine2 = $results->{WAddrLine2};  
my $WCity = $results->{WCity};  
my $WZip = $results->{WZip};  
my $HPhone = $results->{HPhone};  
my $MPhone = $results->{MPhone};  
my $WPhone = $results->{WPhone};  
my $Email = $results->{Email};  
 
#Add these to get rid of the error########## 
my $Company = $results->{Company}; 
my $Job_Title = $results->{Job_Title};