$NewContact->{FullName}=  
              $rec->{first_name} . ' ' . $rec->{last_name};
        $NewContact->{Title} = $rec->{title};
        $NewContact->{FirstName} = $rec->{first_name};
        $NewContact->{LastName} = $rec->{last_name};
        $NewContact->{BusinessTelephoneNumber} = 
             join '-', $rec->{prefix1}, $rec->{suffix1};
        if ($rec->{prefix2}){
            $NewContact->{Business2TelephoneNumber} = 
                 join '-', $rec->{prefix2}, $rec->{suffix2};
        } else {
            $NewContact->{Business2TelephoneNumber} = '27';
        }
        $NewContact->{CompanyName} = $rec->{company};
        $NewContact->{PrimaryTelephoneNumber} =  
                    join '-', $rec->{prefix1}, $rec->{suffix1};
        $NewContact->{OfficeLocation} = $rec->{location};
        $NewContact->{User1} = $rec->{site};
        $NewContact->{"Email1Address"} = 'mytest@mytest.com';