a.pl

my $t;

while (<>) {
  my ($key, $value) = split;
  push @{$t->{$key}}, $value;
}

foreach $key (keys %{$t}) {
  my $s = join ", ", @{$t->{$key}};
  print "$key $s\n";
}