$komma = rand(9999999);
$random = int($komma);

if (!-d "search/1")
{
mkdir("search/1");
}


$count = 0;
foreach $file (@found)
{
$count++;
}



$foreach = 0;
foreach $aa (@found)
{
	$foreach++;
	$ordnercount = 0;
		foreach $ordner ("search/*")
		{
			$ordnercount++;
		}
			$dateicount = 0;
				foreach $datei ("search/$ordnercount/*.txt")
				{
					$dateicount++;
				}
					if ($dateicount =~ 5)
					{
						$ordnercount++;
						mkdir("search/$ordnercount");
						open(DATA,'>',"search/$ordnercount/$random.txt")|| print "FEHLER $!";
						print DATA "FILE";
						close(DATA);
					}
					else
					{
						open(DATA,'>',"search/$ordnercount/$random.txt")|| print "FEHLER $!";
						print DATA "FILE";
						close(DATA);
					}
				
				
				
}