Select Code to Download

#!/usr/bin/perl -w
#
...
    } until ($next==$n-$j);
}
for($k=0;$k++<$n;print($array[$k],",")){}