my $cat = $categories_to_print[$j];
my @kategorien = kategorie_liste_holen ($cat);
my @kategorie_zeilen =  @kategorien ?
	    	map $CGI->td( "    " , $_  ), @kategorien :
			$CGI->td( "keine Liste" );
			print $CGI->Tr( [@kategorie_zeilen
				   ] );