$, = ','; print @list;