$q = 0;
my $k1 = 0;
my $cores = 2;
my $test1;
while ($q < @einstellungen_para_wert[3]){
    my $pid = fork() ;
    unless (defined $pid) {
        die "Could not fork $!";
    }
    elsif (!$pid){
            print "$k1\n";
            open (BATCHDATEI, ">$batch$q.bat");
            print BATCHDATEI "\@echo off\n CopasiSE @einstellungen_para_wert[2]@einstellungen_para_wert[0]$q@einstellungen_para_wert[1] --save @einstellungen_para_wert[2]@einstellungen_para_wert[0]$q$random@einstellungen_para_wert[1]";
            $test1 = $q + $k1;
            $k1++;
            print "$test1 Simulation wird berechnet \$k1 = $k1 \q = $q\n";
            system ("$batch$test1.bat");
            $q++;
            $k1--;
    }
    else{
        exit(0);
    }
}