Select Code to Download

# keys %foo:  extracts the keys from hash %foo
#             and returns them as an array
...
  $k =~ s/ / gid=/;
  print ">$k\n" . join("\n", sort @$v) . "\n";
}