in reply to Re: Decomposing sum to unique sets of summandsin thread Decomposing sum to unique sets of summands
Line 13 should be $temp += pop @p if @p and $p[-1] == 3; otherwise you get a warning for inputs divisible by 2;