9 lines
113 B
Perl
9 lines
113 B
Perl
|
foreach (1..10) {
|
||
|
|
print $_;
|
||
|
|
if ($_ % 5 == 0) {
|
||
|
|
print "\n";
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
print ', ';
|
||
|
|
}
|