@elements = split('-', $elements_to_treat); if ($subject[0] eq 'delete_node'){ print "Delete Node ".$element."\n " if ($dbgFlag == 1); &delete_node(@elements,$file_to_read); } sub delete_node { #------------------------------------------------------------------------------ my ($elements,$file_to_read) = @_; my $del_handler = sub { $_->delete()}; my @all_element = @{$elements}; my $handlers = {map {$_ => $del_handler} @all_element}; my $twig = new XML::Twig(twig_handlers => $handlers); $twig->parsefile($file_to_read); }