#!/usr/bin/perl

use XML::LibXML;
use Switch;

my $object = $ARGV[0];

my $datei = 'bla.xml';
my $mein_objekt = XML::LibXML->new();
my $Baumobjekt = $mein_objekt->parse_file($datei);
my $wurzel = $Baumobjekt->getDocumentElement;
my @knoten = $wurzel->getElementsByTagName('lst');
my @knot = $wurzel->getElementsByTagName('long');
my @objects;
my @content1;
my $i = 0;
foreach my $einzelne_Knoten (@knot)
{
        $name=$einzelne_Knoten->getAttribute('name');
        $content2=$einzelne_Knoten->textContent;
        print "$name = $content2 \n";
        $objects[$i] = $name;
        $content1[$i] = $content2;
        $i++;
}

print "\n$objects[5] = $content1[5]\n";

<?xml version="1.0" encoding="UTF-8" ?>
<response>
<lst name="responseHeader">
  <int name="status">0</int>
  <int name="QTime">53649</int>
</lst>
<lst name="report">
<lst name="alfresco">
  <long name="DB transaction count">136902</long>
  <long name="DB acl transaction count">970</long>
  <long name="Count of duplicated transactions in the index">0</long>
  <long name="Count of duplicated acl transactions in the index">0</long>
  <long name="Count of transactions in the index but not the DB">0</long>
  <long name="Count of acl transactions in the index but not the DB">0</long>
  <long name="Count of missing transactions from the Index">0</long>
  <long name="Count of missing acl transactions from the Index">0</long>
  <long name="Index transaction count">136902</long>
  <long name="Index acl transaction count">970</long>
  <long name="Index unique transaction count">136902</long>
  <long name="Index unique acl transaction count">970</long>
  <long name="Index leaf count">628585</long>
  <long name="Count of duplicate leaves in the index">0</long>
  <long name="Index aux count">628585</long>
  <long name="Count of duplicate aux docs in the index">0</long>
  <long name="Index error count">0</long>
  <long name="Count of duplicate error docs in the index">0</long>
  <long name="Index unindexed count">1812</long>
  <long name="Count of duplicate unindexed docs in the index">0</long>
  <long name="Last index commit time">1370343490031</long>
  <str name="Last Index commit date">2013-06-04T12:58:10</str>
  <long name="Last TX id before holes">138452</long>
</lst>
<lst name="archive">
  <long name="DB transaction count">136902</long>
  <long name="DB acl transaction count">970</long>
  <long name="Count of duplicated transactions in the index">0</long>
  <long name="Count of duplicated acl transactions in the index">0</long>
  <long name="Count of transactions in the index but not the DB">0</long>
  <long name="Count of acl transactions in the index but not the DB">0</long>
  <long name="Count of missing transactions from the Index">0</long>
  <long name="Count of missing acl transactions from the Index">0</long>
  <long name="Index transaction count">136902</long>
  <long name="Index acl transaction count">970</long>
  <long name="Index unique transaction count">136902</long>
  <long name="Index unique acl transaction count">970</long>
  <long name="Index leaf count">1463</long>
  <long name="Count of duplicate leaves in the index">0</long>
  <long name="Index aux count">1463</long>
  <long name="Count of duplicate aux docs in the index">0</long>
  <long name="Index error count">0</long>
  <long name="Count of duplicate error docs in the index">0</long>
  <long name="Index unindexed count">0</long>
  <long name="Count of duplicate unindexed docs in the index">0</long>
  <long name="Last index commit time">1370343490031</long>
  <str name="Last Index commit date">2013-06-04T12:58:10</str>
  <long name="Last TX id before holes">138452</long>
</lst>
</lst>
</response>