<perl>
@liste;
$"=' ';
get "Interpret~=$Interpret sort=Interpret", "Domain";
while (get_next("Domain"))
{
if (index(" @liste "," $Interpret ")<0)
{
push (@zahl, $i) if $_loop != 0;
$i=0; 
push (@liste, $Interpret);
$i++;
}else
{
$i++;
}
}
push (@zahl, $i);

$x=0;
for (@liste)
{
$ausgabe{$_}=$zahl[$x];
$x++; 
}

for (@felder)
{
out "$_ ($ausgabe{$_} ".($ausgabe{$_}==1?"Eintrag":"Einträge").")<br>";
}