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