<perl>

while (get_next("0104"))
     {
      $ges_pkt{$nr} += $zeit_pkt;
     }
@arr_punkte =();

     {
      $work = sprintf('%.3d', $dummy[1]);
      push (@arr_punkte, "$work|$dummy[0]");
# Deine Entscheidung - entsprechendes # entfernen
# @arr_punkte = sort(@arr_punkte); # aufsteigend nach Punkten
@arr_punkte = sort { $b cmp $a }@arr_punkte; # absteigend nach Punkten;
     }

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

        out "$Platz1 Punkte: $punkte - Fahrer-Nr.: $fahrer - Fahrer-Name: $name<br>";
       }

</perl>