sub unterkundenliste($;$);
sub unterkundenliste($;$) { # keine Ref mitgegeben: Fange oben an
	my($kn,$liste) = @_;
	if(not ref $liste) {
		my %lis;
		$liste = \%lis;
	}
	return $liste if $kn == 0;
	return $liste if exists $liste->{$kn};
	$liste->{$kn} = undef;

	unterkundenliste(DoFn("select kunde from kunde where id = $kn"),$liste);

	my $res = DoFn("select id from kunde where kunde = $kn");
	foreach my $arr(@$res) {
		unterkundenliste($arr->[0],$liste);
	}
	$liste;
}
1;
