<perl>
get "Id==*", "master_newsletter_DE_Kopie" , "system_holen";

{   
#### HIER WERDEN DIE NAMEN ZU AUSSCHLUß HINTERLEGT   ###
if ($Email) 

    {

     push @ok, $_id if $seen{$Email}++;  # id abspeichern, wenn die Email schon in %seen drin ist (erst ab dem 2ten auftreten)}

    }
}
foreach $Id (@ok){ 
######################## HIER WERDEN DIE DOPPELTEN DATENSÄTZE, EINZELN AUFGELISTET   ##############################

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

out "<font color='red'><b>$Email | ID: $_id </b> ==\> wurde gelöscht</font><br>";
########del "Id==$Id", "master_newsletter_DE_Kopie";

  }
       out "<table CELLPADDING='2' CELLSPACING='2' ALIGN='CENTER' width='900'>";
       out "<tr><td ALIGN='RIGHT' NOWRAP><a name='anfang' href='#anfang'>nach oben</a><hr></td></tr>";
       out "</table>";
</perl>