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

An alternative to that which is probably faster for large arrays is:

$_ = 0 for @a;
[download]

-- Randal L. Schwartz, Perl hacker