$href{$1} = $2 if $_ =~ /(\S+)\s+(\S+)/;

##</code><code>##

      push @{$href{$1}}, $2 if $_ =~ /(\S+)\s+(\S+)/;

##</code><code>##

   while (my ($key, $value) = each(%href)) {
          print "$key, (@{$value})\n";
   }