Select Code to Download

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

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

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