my $x = 0;
  printf "$array[$x-1]%s",
    $x <= $#array ? "," : "\n"
      while $array[$x++];