@companies = ("FOO,BAR");

foreach $company(@companies) {

 				print "$company"
 		}