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

##</code><code>##

my @poly_coeffs = map !$_+0, 0..$n;

##</code><code>##

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