my @dateinamen;
while(my $datei = readdir(INPUT)) {
  push @dateinamen, $datei;
}