$, = ','; print @array; ##

##

  local $, = ',';