$sum = 1;
for my $i (0 .. 3) {
    $sum *= $A[$i] + $B[$i];
}
say $sum;