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

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