##
my $file = 'xml.xml';
my $parser = XML::LibXML->new();
my $tree = $parser->parse_file($file);
my @tmpinfo;
foreach my $sample ($tree->findnodes('/table/Entry'))
{
$i=0;
foreach my $content ($sample->findnodes('*'))
{
$tmpinfo[$i]=$content->textContent;
$i++;
print $tmpinfo[$i];
}
$i++;
}