#!/usr/bin/perl

use strict;
use warnings;

my @files = glob "files/*.txt";

my $counter = 0;
my $dir = 1;

for my $file ( @files ){
    if( $counter++ % 5 == 0 ){
        $dir++;
    }

    mkdir "suche/$dir" unless -e "suche/$dir";
    my $random = int rand 999999;

    open my $fh, '>', "suche/$dir/$random$file" or die $!;
    print $fh "DATEI";
    close $fh;
}