my $inC = 0;
    while (($inC < 304805) && (!$flag)) {
        if (...) {
            if (...) {
                ...
                my $inCc = 0;
                while ($inCc < 304805) {
                    ...
                    $inCc++;
                }
                ...
            }
            ...
        }
        $inC++
    }