#Datei zum lesen öffnen und Fehler abfangen
open(DATEI1, "<datei1.txt")|| die "Fehler:$!";
#Datei in @datei1 speichern
my @datei1 = <DATEI1>;
#Dateihandle schließen
close(DATEI1);