my @datei = readdir(DIR);
for my $i (0..$#datei) {