A              1            10
  A              2            20
  A              3            15 
  B              1            18
  B              2            05
  B              3            14

    get "Id==*","../data/firma";
    while (get_next("../data/firma"))
       {
        $Anzahl_Firma{$lg_firma}++;
       }

    out "<table>";
    out "<tr>\n";
    out "<th>Firma</th>\n";
    out "<th>Anz.</th>\n";
    out "</tr>\n";
    $work_count2 = 0;
    $work_count3 = 0;
    foreach $firma_key(sort {$b<=>$a}keys %Anzahl_Firma)
       {
        $work_class = ($_loop %2 ? 'zeile1' : 'zeile2');
        out "<tr class='$work_class'>";
        out "<td class='a10'>$firma_key</td>\n";
        out "<td class='a10' style='text-align:right'>$Anzahl_Firma{$firma_key}</td>\n";
        out "</tr>\n";
        $work_count2++;
        $work_count3 = $work_count3 + $Anzahl_Firma{$firma_key};
       }
    out "<tr class='zeile0'>";
    out "<td class='a10'>Summe aller Firmen: $work_count2</td>\n";
    out "<td class='a10' style='text-align:right'>$work_count3</td>\n";
    out "</tr>\n";
    out "</table>";