my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/12/1234";
foreach $dir (@dirs)
{
find(\&newestDate,$dir) ;
}
sub newestDate 
{
  my $path = shift;
  opendir(my $DH, $path);
  return(
    (map {$_->[0]} 
     sort {$a->[1] <=> $b->[1]}
     map{[$_, -M "$path/$_"]} 
     readdir $DH
    )[0]);
}