#!/usr/bin/perl
use warnings;
use strict;

use SOAP::Lite;

my $xml = <<'eof';
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
  <SOAP-ENV:Header/>
  <SOAP-ENV:Body>
  <command id="20070727.103749.843">
    <message id="20070727.103749.843">
    <commands>
      <command/>
    </commands>
    <time time="27.07.2007-10:37:49 +0200"/>
    </message>
  </command>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>
eof

my $som = SOAP::Deserializer->deserialize($xml);

for my $item ($som->dataof("/Envelope/Body/command/*")) {
  print "got 'command' item '", $item->name(), "'\n";
  my $i = 1;
  for my $subitem ($som->dataof("/Envelope/Body/command/[$i]/*")) {
    print "got 'command' subitem $i '", $subitem->name(), "'\n";
    my $j = 1;
    for my $subsubitem ($som->dataof("/Envelope/Body/command/[$i]/[$j]/*")) {
      print "got 'command' subsubitem $i:$j '", $subsubitem->name(), "'\n";
      $j++;
    }
    $i++;
  }
}