#!/usr/bin/perl
# use module
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;
$data = $xml->XMLin("data.xml", KeyAttr => [], ForceArray => 1);
foreach $e (@{$data->{data}})
{
	print "ida: ", $e->{id}, "\n";
	print "idb: ", $e->{data}{id}, "\n";
}