Hello again Discipulus and thanks again for your help here the code that I try below

  

   my ($elements) = @_;
   my $del_handler = sub { $_->delete()};
   my @all_element = @{$elements};
   my %test;    
   foreach $element(@all_element){
      $test{$element}= \&del_handler;
   }
    
   open my $file_end, '>', $file_to_read.'-parsed_'.$dateLog.'.xml';
   my $twig = new XML::Twig(
                            twig_handlers => {\%test,
                          _default_ => sub { $_[0]->flush($file_end)}}
+);
   $twig->parsefile($file_to_read);
   close $file_end;
[download]

And here the errors

 
 Delete Node1
unrecognized expression in handler: 'CODE(0x2bc12e8)' at C:\Users\doc\
+test_file_other.pl line 125.
[download]