my @poly_coeffs = (1, (0) x $n);