I tried putting the xml files in a array instead

my @filelist = (-f, <*.xml>);

foreach my $file (@filelist)
{
    print "Working on... $file\n";
    
    my $twig = new XML::Twig(TwigRoots => {title => 1, text => 1});
    $twig->parsefile($file);

    open(Output, ">:utf8", "2_$file") or die "can't open file $!\n";  
+  
    $twig->root->print(\*Output);
    close (Output);
}
[download]

And got the error message "Use of uninitialized value $_[0] in -f at C:/Perl/site/lib/XML/Twig.pm line 752."

Check your syntax. There is a grep missing somewhere.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ