foreach my $line (@datei1) {
#und nun mit übereinstimmungen von @datei2 suchen
map {
#Wenn das aktuelle Element von map ($_) mit $line
#übereinstimmt, wird es in die Datei geschrieben, die 
#mit dem Handle NEUEDATEI geöffnet wurde
print NEUEDATEI "$_" if $line eq $_;
} @datei2;
}