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

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