get;
$i=1;
while(get_next)
{
 
## datensätze extra speichern
  %{"ds$i"}=%_loop;
  $i++;
}
 
## alle felder durchlaufen
foreach (keys %ds1){
   ## zu jedem feld die werte in eine extraliste aufnehmen
   for ($x=1;$x<$i;$x++){
       push @{$_},${"ds$x"}{$_};
   }
## diese liste von groß nach klein sortieren
@sort=sort{$b<=>$a} @{$_};
## ergebnis 10-(werte der liste subtrahieren) im hash speichern
$erg{$_}=10-eval(join("-",@sort));
## und ergebnis insgesamt aufaddieren
$insg+=$erg{$_};
}
out "<b>Insgesamt</b>: $insg<br>--------------------</br>";
 
## hier für jedes feld die Prozente errechnen
foreach (keys %erg){
out "<br><b>$_</b> ".100*$erg{$_}/$insg." %";
} 

out $nickname," = ",$prozent,"<br>";