my @events;

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

$retval->value(@events);