while(<DATA>) {
  ($name,@values) = split /,/;
  push @list, {name=>$name, value=>$_ } for @values
}