my $anzahl_dateien = () = readdir $dh;