$xmlfile =~ 's/^/XML|/' ;

##</code><code>##

while (my $xmlfile = <$list>) {
$xmlfile =~ 's/^/XML|/' ;
chomp $xmlfile;
    $twig->parsefile($xmlfile);
}