...
push @{ $xml->{server} }, $newsrv;
$xml->{server}[-1]{address}->set_node(1);