my @table1 = GetNames( 'Table1');
my @table2 = GetNames( 'Table2');
my %names = ();
map {$names{$_}++} (@table1, @table2);
while (my ($name, $weight) =  each %names) {
  if ( $weight > 1 ) {
    PrintBoldly($name);
  } else {
    PrintNormally($name);
  }
}