while (<FILE>) {
my ($one,$two,$three..etc)=split(/,/);

}