my $prod = 1; # multiplicative identity, of course

for ( @a )
{
    my($x,$y) = @$_;
    $prod *= $x + $y;
}
[download]

That does what you describe, but it's not 2^N. Not sure where the discrepancy lies...