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]

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.