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

...loop...
my $object = new XML::Twig;
$object->parse('<object />');
$objRoot = $object->root;
...build object xml...
$objRoot->paste('last_child', $root);