sub AddId
{
   my $Index = $_[0];
   my $Value;
   my $MaxPtr = "";

   ${$id} = "";
   if(exists $TableEntries{ $Index }) {
      $Value  = $TableEntries{ $Index }[0];
      print "AddId $Index\n";
      print "Value: $Value\n";
      $query = "SELECT $Index"."Id FROM $Index  where $Index"."name = \'$Value\'\;";
      if( $debug eq 2 ) { print "\nquery: $query\n"; }
      $queryhandle = $dbh->prepare($query);
      $queryhandle->execute();
      $queryhandle->bind_col(1, \${$id});
      $queryhandle->fetch();
      if($debug eq 2) { print "value: $Value id: ${$id} [end]\n"; }
      if( ${$id} eq "" ) {
         # Insert new item
         $MaxPtr = "\$"."Max"."$Index"."Id";
         print "MaxPtr: $MaxPtr, ${$MaxPtr}\n";
         my $newinsert = "Insert into $Index values(";
         # Rest goes here
      }
      $queryhandle->finish();
   }
}