sub sumTo {
    my $target = shift;
    for my $i ( 0 .. $#_ ) {
        return [ $_[ $i ] ] if $_[ $i ] == $target;
        if( @{
            $_ = sumTo( $target - $_[ $i ], @_[ 0 .. $i-1, $i+1 .. $#_ ] )
        } ) {
            return [ $_[ $i ], @{ $_ } ];
        }
    }
    return [];
}

##</code><code>##

sub sumTo {
    my $target = shift;
    return map {
        $_[ $_ ] == $target
        ? [ $target ]
        : do{
            my $x = $_[ $_ ];
            map {
               @{ $_ }
               ? [ $x, @{ $_ } ]
               : ()
            } sumTo( $target - $x, @_[ 0 .. $_-1, $_+1 .. $#_ ] );
        };
    } 0 .. $#_;
}

my @numbers = ( 5, -6, 8, 10, 12, 3, 10 );

print "$ARGV[ 0 ]: sum [@$_] => ", sum( @$_ )
    for sumTo( $ARGV[ 0 ], @numbers );

__END__

[ 9:46:47.20] c:\test>688357 21
21: sum [5 -6 10 12] => 21
21: sum [5 -6 12 10] => 21
21: sum [5 -6 12 10] => 21
21: sum [5 -6 10 12] => 21
21: sum [5 10 -6 12] => 21
21: sum [5 10 12 -6] => 21
21: sum [5 12 -6 10] => 21
21: sum [5 12 -6 10] => 21
21: sum [5 12 10 -6] => 21
21: sum [5 12 10 -6] => 21
21: sum [5 10 -6 12] => 21
21: sum [5 10 12 -6] => 21
21: sum [-6 5 10 12] => 21
21: sum [-6 5 12 10] => 21
21: sum [-6 5 12 10] => 21
21: sum [-6 5 10 12] => 21
21: sum [-6 10 5 12] => 21
21: sum [-6 10 12 5] => 21
21: sum [-6 12 5 10] => 21
21: sum [-6 12 5 10] => 21
21: sum [-6 12 10 5] => 21
21: sum [-6 12 10 5] => 21
21: sum [-6 10 5 12] => 21
21: sum [-6 10 12 5] => 21
21: sum [8 10 3] => 21
21: sum [8 3 10] => 21
21: sum [8 3 10] => 21
21: sum [8 10 3] => 21
21: sum [10 5 -6 12] => 21
21: sum [10 5 12 -6] => 21
21: sum [10 -6 5 12] => 21
21: sum [10 -6 12 5] => 21
21: sum [10 8 3] => 21
21: sum [10 12 5 -6] => 21
21: sum [10 12 -6 5] => 21
21: sum [10 3 8] => 21
21: sum [12 5 -6 10] => 21
21: sum [12 5 -6 10] => 21
21: sum [12 5 10 -6] => 21
21: sum [12 5 10 -6] => 21
21: sum [12 -6 5 10] => 21
21: sum [12 -6 5 10] => 21
21: sum [12 -6 10 5] => 21
21: sum [12 -6 10 5] => 21
21: sum [12 10 5 -6] => 21
21: sum [12 10 -6 5] => 21
21: sum [12 10 5 -6] => 21
21: sum [12 10 -6 5] => 21
21: sum [3 8 10] => 21
21: sum [3 8 10] => 21
21: sum [3 10 8] => 21
21: sum [3 10 8] => 21
21: sum [10 5 -6 12] => 21
21: sum [10 5 12 -6] => 21
21: sum [10 -6 5 12] => 21
21: sum [10 -6 12 5] => 21
21: sum [10 8 3] => 21
21: sum [10 12 5 -6] => 21
21: sum [10 12 -6 5] => 21
21: sum [10 3 8] => 21