Here the ids are sequence for both the elements. I want to start the new id for 'a' element again from sec1.

output i got:
-------------
<xml>
  <p id="fig1">here the paragraph comes</p>
  <p id="fig2">here the paragraph comes</p>
  <p id="fig3">here the paragraph comes</p>
  <p id="fig4">here the paragraph comes</p>
  <a id="sec5">here the paragraph comes</a> #note here id is not restarting
  <a id="sec6">here the paragraph comes</a>
  <a id="sec7">here the paragraph comes</a>
  <a id="sec8">here the paragraph comes</a>
  <a id="sec9">here the paragraph comes</a>
  <a id="sec10">here the paragraph comes</a>
  <a id="sec11">here the paragraph comes</a>
  <a id="sec12">here the paragraph comes</a>
  <a id="sec13">here the paragraph comes</a>
  <a id="sec14">here the paragraph comes</a>
  <a id="sec15">here the paragraph comes</a>
  <a id="sec16">here the paragraph comes</a>
</xml>

##</code><code>##

Required Output:
----------------
<xml>
  <p id="fig1">here the paragraph comes</p>
  <p id="fig2">here the paragraph comes</p>
  <p id="fig3">here the paragraph comes</p>
  <p id="fig4">here the paragraph comes</p>
  <a id="sec1">here the paragraph comes</a> #note here it restarts again
  <a id="sec2">here the paragraph comes</a>
  <a id="sec3">here the paragraph comes</a>
  <a id="sec4">here the paragraph comes</a>
  <a id="sec5">here the paragraph comes</a>
  <a id="sec6">here the paragraph comes</a>
  <a id="sec7">here the paragraph comes</a>
  <a id="sec8">here the paragraph comes</a>
  <a id="sec9">here the paragraph comes</a>
  <a id="sec10">here the paragraph comes</a>
  <a id="sec11">here the paragraph comes</a>
  <a id="sec12">here the paragraph comes</a>
</xml>

##</code><code>##


use strict;
use XML::Twig;

my $string = '<xml>
<p>here the paragraph comes</p>
<p>here the paragraph comes</p>
<p>here the paragraph comes</p>
<p>here the paragraph comes</p>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
<a>here the paragraph comes</a>
</xml>';

my $twig = new XML::Twig(
					
		twig_handlers => {
											p => sub { $_->add_id() } #generate id
											a => sub { $_->add_id() }, #generate id
					
										 },
		pretty_print => 'indented' #print format
);

#my $twig1 = new XML::Twig(
#					
#		twig_handlers => {
#												a => sub { $_->add_id() } #generate id
#										 },
#		pretty_print => 'indented' #print format
#);


$twig->set_id_seed( "fig" );
$twig->parse($string);
$string = $twig->sprint;

#$twig1->set_id_seed( "sec" );
#$twig1->parse($string);
#$string = $twig1->sprint;

print $string;