<perl>
$zaehler="0";
get "Marke!=zzzzzzzz sort=Marke,Modell", Auto;
while (get_next(Auto))
  {
   if ($iso eq "PS")
    {
     $Leistung=$Leistung*0.736;
     $Leistung=sprintf("%.0f",$Leistung);
    }
if ($Marke ne "")
    {
    $zaehler=$zaehler+1;
    out "<tr>";
    out "<td>",$zaehler,"</td><td>",$Marke,"</td><td>",$Modell,"</td><td>",$Baujahr,"</td><td>",$Hubraum,"</td><td>",$Leistung, " kW</td><td>",$Treibstoff,"</td><td>",$Verbrauch," l</td></tr>";
     }
  }
</perl>
</table>