my @datei;
my $toll;
opendir(DIR,".");
  while(my $FilesInDir = readdir(DIR)) {
    if ($FilesInDir =~ /.f90$/i || $FilesInDir =~ /.f$/i || $FilesInDir =~ /.f90inc$/i)
    {
	$toll = datei($FilesInDir);
        push(@datei, $toll);
    }
  }
  closedir(DIR);