for (split ',', $FOO) { 
   print "$_\n";
}