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

##</code><code>##

@{$hashCompany{$vars[1]}} = join(',',@vars[0,1]);

##</code><code>##

$CompHashDB{$data[0]} = "$data[0]";