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