##

foreach my $complex(keys %{$data->{'xs:complexType'}}) {
print $complex;
my $seq = $data->{'xs:complexType'}->{$complex}->{'xs:sequence'};

##

##

foreach my $subseq (values %{$data->{'xs:complexType'}}) {
  my $seq = $subseq->{'xs:sequence'};