my %delete;
@delete{@zu_loeschende_Adressen}= ();
@Alle_eMail_Adressen = grep { ! exists $delete{$_} } @Alle_eMail_Adressen;