in reply to Perl ARRAY() result

Hi pvfki
... } else { print join(',', @$included, $nextValue), "\n" if $currentGoal == $nextValue; return if $nextValue >= $currentGoal; } ...
Update And you can push the result to @results.
... } else { if ($currentGoal == $nextValue) { print join(',', @$included, $nextValue), "\n"; push @results, [@$included, $nextValue]; } return if $nextValue >= $currentGoal; } ...
HTH