Select Code to Download

use warnings;
use strict;
...
while ( my $v = shift @array_copy ) {
    print $v, @array_copy ? ", " : ".\n";
}

# demo of a basic iterator
use Iterator::Simple 'iter';
...
while (defined( my $v = $itp->() )) {
    print $v, defined $itp->peek ? ", " : ".\n";
}