Select Code to Download

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

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

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