foreach (@COMPANIES) {
    $sum{$_->{'comp'}} += $_->{'count'};
}

#Output in %sum
use Data::Dumper;
print OUTFILE Dumper(\%sum);