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