- or download this
for $comp_name (keys %CompHashDB) {
print "DIFF: $comp_name\n" if $CompHashDB{$comp_name} ne $hashCompan
+y{$comp_name};
}
- or download this
@{$hashCompany{$vars[1]}} = join(',',@vars[0,1]);
- or download this
$CompHashDB{$data[0]} = "$data[0]";