#!/user/bin/perl

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

while (<INFILE>) {
    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;