for my $datei (@dateien){