Select Code to Download

use warnings;
use strict;

{
    # For the sake of the example, this assumes that you
...
}

print join(",", 1 .. $in), "\n";

print $in--; do { print ", $a" } while --$a;
for ($i=1;$i <= $in; $i++){ print $i-1?",$i":$i; }
while($in){push @a, $in--;} print join ",", reverse @a;