In untested pseudo-perl

my @list_new = myfunction();
while( @list_new )
    {
    my $item = shift @list_new;
    if( conditiontrue ) { execute($item); }
    if( conditionfalse ) { @list_new = myfunction(); }
    }
[download]