$C[0] = 1;
$C[$N-1] = 1;
for ($i=0; $i<$N; $i++) {
    $C[0] *= $a->[$i]->[0];
    $C[$N-1] *=  $a->[$i]->[1];
}