while(<DATA>)
{
  chomp;
  my @line = split(',',$_);
}