Select Code to Download

file1
      file2

 foreach (@array) {
                       parXML($_);
                             }

sub parXML {

    my $file = shift;
...
        $twig->purge;
    }
}

 
<REP>abc</REP>
 <ING>ip</ING>
...
</DS>
</COM>
<LIST>ac</LIST>

 
<REP>ab</REP>
 <ING>ip</ING>
...
</DS>
</COM>
<LIST>gn</LIST>

<IP_ADDRESS>192.168.67.16</IP_ADDRESS>
 <COM>
...
<N>1</N>
</DS>
</COM>

<IP_ADDRESS>192.168.67.110</IP_ADDRESS>
 <COM>
...
<N>5</N>
</DS>
</COM>