my $param = SOAP::Data->name("ListOfAccountContactInterface" => \SOAP::Data->value(
SOAP::Data->name("Account" => \SOAP::Data->value(
SOAP::Data->name("CompanyId" => '1029843'),
SOAP::Data->name("ListOfContact" => \SOAP::Data->value(
SOAP::Data->name("Contact" => \SOAP::Data->value(
SOAP::Data->name("<ContactId>" => 'CON12347')
   ))
  ))
 ))
));