open(FILE, "< $datei1") or die("$!");
my @main = <FILE>;
close(FILE) or die("$!");

my $main = "@main";