my @array = qw(0 0 0 0 0); # well, not much on this one, but . . .
my @array = (0)x5;         # pure evil

##</code><code>##

for (0..$#array) {
	print $array[$_],',';
}