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;

##</code><code>##

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