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;