for my $key (keys %oid) {
  if (defined(my $response = $session -> get_table(-baseoid => $oid{$key}))) {
    print "\n == hash key == $key == hash value == $oid{$key} ==\n";
    for my $r(oid_lex_sort(keys(%{$response}))) {
      print($response -> {$r}, ",\n");
    }
  }
  else { print "Error: ",($session -> error(), ",\n"); }
}