use strict;

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