Using perl constructed list to trigger skip

Good evening,

I have a situation where we have 30 pages, each page has a predefined conjoint set, and the 30 pages are randomized. I want the respondent to answer 9 of these questions and then be skipped out of the block of 30. To do so I imagined I could simply write a PERL script list build that would add a list item every time the conjoint set was greater than 0. Then, using ListLength=9 to trigger the skip logic (the skip is in a html/text filler question along with each conjoint set).

Here is the perl:


Begin Unverified Perl  
 
 if(VALUE("CBCRAN1") > 0)   
 {   
    ADD("Count",1);  
 }   
 if(VALUE("CBCRAN2") > 0)   
 {   
    ADD("Count",2);  
 }
 if(VALUE("CBCRAN3") > 0)   
 {   
    ADD("Count",3);  
 }

......... and so on until 30. CBCRANx is the conjoint set, which shows up in the data as a 1 or a 2 depending on which column is select and Count is simply a list of the numbers 1 through 30 - so that the perl is adding different list items to a list named VersionSkipOut.

Then in the html/text page I have ListLength(VersionSkipOut)=9 skip out of the conjoint block of questions.

Maybe I missing something about when and how a list is created? Issue with my perl?

Any help or insight would be greatly appreciated! Thank you!