The following works, though it can definitely be made more efficient by using @_ instead of creating private variables in each instance of the sub, and by returning sets of matches instead of passing a potential set to each successive instance of the sub. Of course, this means you can only view the results once they're all in, instead of while they're being generated. Note that I'm passing the number array by reference rather than individual numbers, which should increase efficiency assuming the array starts out fairly big. 
use strict;
use warnings;

my @array = (6, 18, 12, 2, 49);
addup(2, 30, 0, [sort {$b <=> $a} @array]);

sub addup {
    my ($num, $val, $offset, $p, @set) = @_;
    if ($num == 1) {
        for ($offset..$#{$p}) {
            last if @$p[$_] < $val;
            print join ' ', @set, $val, "\n" if @$p[$_] == $val;
        }
    }
    else {
        for ($offset..($#{$p}-$num+1)) {
            next if @$p[$_] > $val - $num + 1;
            last if @$p[$_] < int ($val / $num);
            addup($num-1, $val-@$p[$_], $_+1, $p, @set, @$p[$_]);
        }
    }
}

[download]

In reply to Re: finding values in an array that add up to a specific number by TedPride
in thread finding values in an array that add up to a specific number by Forsaken

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.