use XML::Simple;

my $cfg = {'version' => '1.0',
						'section' => {
							'name' => 'Section 1', 
							'setting' => [
                          {
                            'name' => 'Setting#1',
                            'value' => 'Value#1'
                          },
                          {
                            'name' => 'Setting#2',
                            'value' => 'Value#2'
                          },
                          {
                            'name' => 'Setting#3',
                            'value' => 'Value#3'
                          }
                        ]
          	}
          };


# write out Perl variable
print XMLout($cfg, RootName=>'configuration', XMLDecl=>1);