RosettaCodeData/Task/Loops-Continue/Perl/loops-continue-1.pl

foreach (1..10) {
    print $_;
    if ($_ % 5 == 0) {
        print "\n";
        next;
    }
    print ', ';
}