my $data = SOAP::Data->name( "AAA" => 
               SOAP::Data->value(
                 SOAP::Data->name( "BBB" => "B_VALUE" ),
                 SOAP::Data->name( "CCC" => 
                   SOAP::Data->value( 
                     SOAP::Data->name( "DDD" => 
                       SOAP::Data->value(
                         SOAP::Data->name( "EEE" => "E_VALUE" ),
                         SOAP::Data->name( "FFF"  => "F_VALUE" )
                       )
                     )
                   )
                 )
               )
             );