#
!usr/bin/perl -w

use strict;
use XML::Writer;
use IO;

my output = new IO::File(">xxx.xml");
@Name    = "Fred Flintsone", "Barney Rubble";
@Address = "111 Rock River Lane", "113 Rock River Lane";
my $writer = new XML::Writer(OUTPUT => $output,NEWLINES =>1);
$writer->xmlDecl("UTF-8","1");
$writer->startTag("Application",
  $writer->startTag("Customer"),
     $writer->startTag("Name");
     $writer->characters($Name[0]);
     $writer->endTag("Name");
     $writer->startTag("Address");
     $writer->characters($Address[0]);
     $writer->endTag("Name");
     $writer->startTag("Name");
     $writer->characters($Name[1]);
     $writer->endTag("Name");
     $writer->startTag("Address");
     $writer->characters($Address[1]);
     $writer->endTag("Address");
  $writer->endTag("Customer");
$writer->endTag("Application");
$writer->end();
$output->close();