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;