Problem Statement

Quite often one needs loops which, in the last iteration, execute only part of the loop body. Demonstrate the best way to do this. Write a loop which writes the comma-separated list using separate output statements for the number and the comma from within the body of the loop.

Let's start with the solution:

for my $i(1..10) {
    print $i;
    last if $i == 10;
    print ', ';
}
print "\n";

print join(', ', 1..10), "\n";