my $rw1 = open(FILE,"Datei1.dat");      # Die Datei1.dat wird geöffnet
my @Datei1 = <FILE>;                    # Der Inhalt der Datei wird in das Array @Datei1 geschieben
close(FILE);