for $comp_name (keys %CompHashDB) {
  print "DIFF: $comp_name\n" if $CompHashDB{$comp_name} ne $hashCompany{$comp_name};
}