You're close: what you need to do is now split the second data field $data[1] into several parts, preferably with the split function:

# instead of print "Color =" above, ....

foreach my $color ( split /,/ $data[1] ) {
   print "Color = $color\n";
}
[download]

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important