#!/user/bin/perl

open (OUTFILE, '>>', 'COID_LIST.txt') or die "Unable to open Write File! \n$!";
opendir MYDIR, '.' or die "opendir $dir_name failed";
my @file_list = readdir(MYDIR);
closedir MYDIR, '.' or die "opendir $dir_name failed";

foreach $file (@file_list) {
    open (INFILE, '<', $file) or die "File not found\n$!";

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

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

close OUTFILE;