my @list;
while (<>) {
  chomp;
  my (%hash, @rest);
  ($hash{first}, $hash{date}, @rest) = split(",", $_);
  for my $r (@rest) {
    my ($k, $v) = split(' ', $r, 2);
    $hash{$k} = $v;
  }
  push(@list, \%hash);
}