my $xpath = q!//Party[@id=//Relation[child::RelationRoleCode[@tc='37']]/@RelatedObjectID]/Producer/CarrierAppointment/CompanyProducerID!;
my @nodes = $root->findnodes($xpath);
for (@nodes){
  print $_->text;
}