I understand your situation at last.
So, copying original and reuse it will be like this.

my $t= XML::Twig->new();
$t->parsefile($inputFile);
my $someData =$t->root->first_child; #someData

for my $i(1 .. $loop) {
    for ( $someData->children_copy( 'managedObject') ){
        handle_managedObject($t, $_);
    }

    print "Iteracja: $i / $loop \t->  OK\n";
    $bID++;
    $someID = 0;
}
[download]

I think the real problem is even worse in that with the real, 10MB & 100MB XML files, he is moving his process into swapping hence everything slows to a crawl.

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong

Hello, BrowserUK.

I see. Example XML is just 613KB.

Copying Twig object is terribly slow. I guess Data::Dumper or dclone of storable will not do any good, because it is just huge.

    for ( $someData->children_copy( 'managedObject') ){
        handle_managedObject($t, $_);
    }
[download]

Without copy, it is very fast.

    for ( $someData->children( 'managedObject') ){
        handle_managedObject($t, $_);
    }
[download]

So, I vaguely imagined rewriting managedObject sub using regex, for example ...

my ($t, $element)=@_;

# create rewrite rules using Twig 
my %rewrite_rules =(
    q/name="name"/ => "some value",
);


#replace with regex
my $buffer=$element->sprint; #get plain text of element
for (keys %rewrite_rules){
    $buffer =~ s/ $_  (.*?)  >  .*?  (?=<)
                /${_} ${1} $rewrite_rules{$_}/sx;
}

#just print out without changing $element
print $fh $buffer;

I will do like this, if I were.

Regards and thanks for your response.