foreach $plz_liste ("0", "1" , "2" , "3")  ## HIER WIRD DIE ERSTE ZIFFER DER PLZ HINTERLEGT

get "PLZ~=$plz_liste", "rechnungssystem" , "system_holen";

{   

if ($Name1 ne "1a\ Autoservice" && $Name1 ne "Altmann" && $Name1 ne "AMS\ Berlin" && $Name1 ne "Aral\ Tankstelle" && $Name1 ne "ATB") 

    {

     push @ok, $Name1 if ++$nr{$Name1}==2;

    }
}

{  

out "<tr>";
out "<td ALIGN='LEFT'>";
out "<b>$Name1 | ID: $_id | ID: $Id PLZ: $PLZ</b><br>";
out "</td>";
out "</tr></table>";

get ["Name1" , "==" , "$Name1"] , "rechnungssystem" , "doppelte_holen";

{
out "<table CELLPADDING='2' CELLSPACING='2' ALIGN='CENTER' width='900'>";
out "<tr>";
out "<td ALIGN='LEFT'>";
out "Name1 = $Name1 | Straße = $Strasse | PLZ = $PLZ | Ort = $ Ort | KD = $kundennummer</td><td align='right'>$Suchort<br>";
out "</td>";
out "</tr>";
out "</table>";
}
out "<table CELLPADDING='2' CELLSPACING='2' ALIGN='CENTER' width='900'>";
out "<tr><td><hr></td></tr>";
out "</table>";
}