while ( <DATA> )
{
  chomp;
  pushsome $d, split /,/;
}