Select Code to Download

my @poly1_coeffs = () ;
push @poly1_coeffs, 1 ;
...
{
    push @poly1_coeffs, 0 ;
}

my @poly_coeffs = (0) x ($n + 1) ;
$poly_coeffs[0]++ ;