Thanks for the quick answer, brother danboo - that does the trick.   8^)

Actually, I do understand which is key and which is value (at least in the declaration chunk).   What's cornfusing here is that $oid{key} refers to the key, while $key refers to the value.   So to avoid that puzzlement, here's what I'm doing for now:

for (keys %oid) {
  if (defined(my $response = $session -> get_table(-baseoid => $oid{$_
+}))) {
    print "\n == $_ == $oid{$_} ==\n";
    for my $r(oid_lex_sort(keys(%{$response}))) {
      print($response -> {$r}, ",\n");
    }
  }
  else { print "Error: ",($session -> error(), ",\n"); }
}
[download]

    cheers,
    Don
    striving toward Perl Adept
    (it's pronounced "why-bick")

Update:
Hrm... as good monk danboo points out below, I mispoke.   What I meant to say is "What's cornfusing here is that $oid{key} refers to the value, while $key refers to the key."   I really do understand key and value...   really...   honest   {grin}