use strict;
use XML::Simple;
my $xo = XML::Simple->new();
my $xml = $xo->XMLin('test.xml',forcearray => 1);
push @{$xml->{node}},'Knoten2';
print $xo->XMLout($xml,rootname => 'root');
_ _ END _ _