get "Id==$Bewohner_id","Bewohner";
out "$Vorname $_ - $anzahl{$_} Punkte<br>";

<perl>
get "Bewohner_id==* ","rangliste";
while (get_next("rangliste"))
{
$anzahl{$Bewohner_id}++;

@sortiert=sort { $temp{$a} <=> $temp{$b} } keys %temp;
@reversed=reverse @sortiert;
foreach (@reversed)

out "$_ - $anzahl{$_} Punkte<br>";
}