10 lines
130 B
Perl
10 lines
130 B
Perl
|
foreach (1..10) {
|
||
|
|
print $_;
|
||
|
|
if ($_ % 5 == 0) {
|
||
|
|
print "\n";
|
||
|
|
goto MYLABEL;
|
||
|
|
}
|
||
|
|
print ', ';
|
||
|
|
MYLABEL:
|
||
|
|
}
|