@a = (0) x @a;     # every element set to zero

##</code><code>##

$_ = 0 for @a;