while(<>) {
  /^(.+)\: (.+)$/;
  my $key = $1
  my @values = split(", ", $2);
  $hash{$key} = \@values;
}

foreach my $key (sort keys %hash) {
  print "$key:  ", join(", ", @{$hash{$key}}), "\n";
}