If count is never defined, it is undef and hence equal to 0 in numeric context. If you are just trying to accumulate the number of times you encounter a certain value of comp, perhaps you mean:

foreach (@COMPANIES) {
    $sum{$_->{comp}}++;
}
[download]

Note that since Perl automatically stringifies alphanumeric hash keys, you don't need to include quotes in this context.