#!/user/bin/perl

open (OUTFILE, '>> COID_LIST.txt') or die "Unable to open Write File!\n$!";

while (<>) {
    my $COMPANY_ID = substr $_, 260, 5;
    push @COMPANIES, {comp => $COMPANY_ID};
  }

foreach (@COMPANIES) {
    $sum{$_->{'comp'}} += $_->{'count'};
    }
#Output in %sum
use Data::Dumper;
print OUTFILE Dumper(\%sum);

close OUTFILE;