my @array = ('1');

for(my $i=0;$i<=10;$i++) {
print @array . ',';
}