get "Id==*", "$s";
 
while (get_next("$s"))
     {
      $ges_pkt{$nr} += $zeit_pkt;
      $ges_rennen{$nr} += $fahrt;
      $ges_km{$nr} += $laenge_ges;
     }
@arr_punkte =();

     {

      $work = sprintf('%.02f', $dummy[1]);
      push (@arr_punkte, "$work|$dummy[0]");

# @arr_punkte = sort(@arr_punkte); # aufsteigend nach Punkten
@arr_punkte = sort { $b cmp $a }@arr_punkte; # absteigend nach Punkten;
     }

{
($punkte, $fahrer, $fahrt) = split(/\|/, $arr_punkte);
      $rang = ++$rang;
      $Platz1 = $rang if($punkte ne $puffer);
      $puffer = $punkte;