#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use Perl6::Say;
use FindBin qw/$Bin/;
use XML::Simple;

my @data = (
		{
			url => [
				{
					loc => 'loc',
					changefreq => 'changefreq',
					priority => 'priority',
				},
				{
					loc => 'loc2',
					changefreq => 'changefreq2',
					priority => 'priority2',
				},
			],
		},
);


my $xs = XML::Simple->new(
	ForceArray => 1,
	XMLDecl => 1,
	NoAttr => 1,
	KeepRoot => 1,
);
my $xml = $xs->XMLout(
	{urlset => \@data},
	#OutputFile => $outfile,
);

print Dumper $xml;