#!usr/bin/perl -w
use strict;
use XML::Writer;

my $writer = new XML::Writer( DATA_MODE => 1, DATA_INDENT => 4 );

my @Name    = ("Fred Flintsone", "Barney Rubble");
my @Address = ("111 Rock River Lane", "113 Rock River Lane");

my @flinstones;
for (0 .. $#Name){ push @flinstones, [ $Name[$_], $Address[$_] ] }

# which is the same as :

@flinstones = (
	[ 'Fred Finstone', '111, Rock River Lane' ],
	[ 'Barney Rubble', '113, Rock River Lane' ],
);

$writer->xmlDecl( "UTF-8", 1 );

$writer->startTag( "Application");
foreach my $character (@flinstones){
	$writer->startTag("Customer");
		$writer->dataElement("Name",	$character->[0] );
		$writer->dataElement("Address", $character->[1] );
	$writer->endTag("Customer");
}
$writer->endTag("Application");

$writer->end();

__END__
Results:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Application>
    <Customer>
        <Name>Fred Finstone</Name>
        <Address>111, Rock River Lane</Address>
    </Customer>
    <Customer>
        <Name>Barney Rubble</Name>
        <Address>113, Rock River Lane</Address>
    </Customer>
</Application>