#!/usr/bin/perl --
use strict; use warnings;
use XML::Twig;
my $objectsTwig = XML::Twig->new;
$objectsTwig->xparse('<objects />');
print $objectsTwig ->toString, "\n";
my $OBJECT_ROOT = $objectsTwig->root;
for( 1 .. 10 ){
    XML::Twig::Elt->new(
        'object'
    )->paste(
        'last_child',
        $OBJECT_ROOT
    );
}
print $objectsTwig ->toString, "\n";
__END__
<objects/>
<objects><object/><object/><object/><object/><object/><object/><object/><object/><object/><object/></objects>