http://www.perlmonks.org?node_id=1008221

reaper9187 has asked for the wisdom of the Perl Monks concerning the following question:

HI monks... i have a problem i need help with .. Its more of a problem related to general programming... i'm trying to use recursion for a problem .. the structure of the program is like this ..

I'm importing certain set of values (stored in an array, say X) from a subroutine... I need to perform two checks .. say subA,subB.

For each of the values in set X, i perform a check using sub A and then assign values using subB. we then perform the check using new (updated)values of elements and perform checks and eliminate some values and then assign new values using subB. We do this repeatedly till none are left.

Since there involves updating and re-checking in the process, is there some way we can do this recursively ??

I was thinking of something on the lines
foreach $key(@X) { &subA($key); #returns the result of check, if yes then #assign new values else ignore &subB; #subA returns an array of elements whose values #need to be reassigned. subB then assigns value }
Is there a better way to do this or am i treading on the right path ??