join

print(join(',', map "'$_'", @foo), "\n");
[download]

But what about something with an apostrophe in it (say The People's Republic of China, since you're mostly listing countries). You should probably be using Text::CSV_XS