$retval = SOAP::Data->name('events');
		
foreach my $thisevt (keys %evtdbase)
{
	$retval->value( SOAP::Data->name('event')->value( SOAP::Data->type(string => $evtdbase{$thisevt} ) ) );
}

##</code><code>##

<events>
<event xsi:type="xsd:string">foo</event>
<event xsi:type="xsd:string">bar</event>
:
:
</events>

##</code><code>##

<event xsi:type="xsd:string">foo</event>