foreach my $to_remove (@zu_loeschende_Adressen) {
   foreach my $idx reverse(0..$#alle_email_adressen) {
      splice @alle_email_adressen, $idx, 1 if 
         $alle_email_adressen[$idx] eq $to_remove;  
   }
}