my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/*/*";

foreach $dir (@dirs)

{
print "$dir\n";

opendir (DIR, $dir);
{find(\&wanted,$dir);
}

sub wanted
{
 my $file = $File::Find::name;
  push(@files,$file) if(-f $file and -M $file > 0);

}
 closedir (DIR);
foreach $files (@files)
{
print "$files\n";
}
}