use XML::Bare qw/xget xval forcearray/;
.
.
.
.

my $fields = XML::Bare::forcearray( $config->{'field'} ); 
$ob->add_node($rxml, 'vars', $fields);
.
.
.
.