{
	local $" = ', ';
	@a = qw(foo bar baz quux);
	print "@a\n";
}