foreach(@numbers) { local $\ = ','; print; }