my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/*/*";
foreach $dir (@dirs)
{

open (DIR,">>/var/lib/testverzeichnis/Projekte/tot.txt");
print DIR "\n$dir: \n";
print DIR newestDate("$dir");
close (DIR)

}
sub newestDate 
																{																
								
$path = shift;
							
opendir( $DH, $path);
return(
(map{$_->[0]} 							
sort {$a->[1] <=> $b->[1]}
map{[$_, -M "$path/$_"]} 
								
readdir $DH
								
)[0]);
								
}