#!/usr/bin/perl

#use strict;
use warnings;

my @my_array;
my $replace = "$my_array".'@'."xy.de";

open(DATEI,"<", "altedatei") || die "Datei nicht gefunden";
while(<DATEI>){
  chomp;
  push(@my_array,$_);
}
close(DATEI);

my $string = join("|",@my_array);
my $regex = qr{$string};
my $replace = "$array".'@'."xy.de";

open (DATA, "datei") || die "konnte die Datei nicht oeffnen\n";
#Solange noch etwas in der Datei steht, fuehre sed-Aktion aus
while (<DATA>){
  $_ =~ s/$regex/$replace/g;
  push(@datei, $_);
}
#Die Datei wird nach der Bearbeitung geschlossen.
close (DATA);

#Die Datei wird zum schreiben geoeffnet
open (WRITE, ">","datei.neu") || die "konnte Datei nicht beschreiben\n";
#Die Datei wird mit dem Inhalt des Arrays ueberschrieben.
print WRITE @datei;
#die fertige Datei wird geschlossen.
close (WRITE);