Select Code to Download

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

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