<perl>

while (get_next("0104"))
     {
      $ges_pkt{$nr} += $zeit_pkt;
     }
@arr_punkte
while (@dummy = each(%ges_pkt))
     {
      $work = sprintf('%.6d', $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;
     }
foreach $arr_punkte(@arr_punkte)
       {
        ($punkte, $fahrer) = split(/\|/, $arr_punkte);
        get "db2_nr==$fahrer", "2.Datenbank";
        $db2_name = "???" if (!$_amount_query);
        out "Punkte: $punkte - Fahrer-Nr.: $fahrer - Fahrer-Name: $db2_name<br>\n";
       }
</perl>