$q = 0;
    while($q < (@einstellungen_para_wert[12] * @einstellungen_para_wert[13])){
        unlink ("$modelldatei$q@einstellungen_para_wert[1]") or warn "$!";
        while (-e "$modelldatei$q@einstellungen_para_wert[1]"){
            sleep (1);
            unlink ("$modelldatei$q@einstellungen_para_wert[1]") or warn "$!";
        }
        $q++;
    }