use XML::Twig;

my $objectsTwig = new XML::Twig;
$objectsTwig->parse('<objects />');

$OBJECTS_ROOT = $objectsTwig->root;

do {
	my $object = new XML::Twig;
	$object->parse('<object />');
	$OBJECT_ROOT = $object->root;
	
	... Add elements to <object> node
	
	$OBJECT_ROOT->paste('last_child', $OBJECTS_ROOT);
		
}  until (yada...);