#!/usr/bin/perl

use strict;

use Text::CSV_XS;

my %DocTypes = ( 'IEBO' => 'CEBO', 'CEBO' => 'IEBO', 'IAPI' => 'CAPI', 'CAPI' => 'IAPI' );

if ( $ARGV[0] ) {
    tally();
} else {
    usage();
}

sub tally {
    open( my $fhOrig, "<:encoding(utf8)", $ARGV[0] ) or usage();

    my $cOrig = Text::CSV_XS->new( { binary => 1 } );

    my %totals;
    my $linenum = 1;
    while ( my $orig = $cOrig->getline($fhOrig) ) {
        if ( $linenum > 1 ) {
            $totals{ $orig->[0] }->{units} += $orig->[4];
            $totals{ $orig->[0] }->{money} += $orig->[23];
        }

        $linenum++;
    }

    close($fhOrig);

    foreach my $key ( keys(%totals) ) {
        print $key . " units " . $totals{$key}->{units} . "\t" . $totals{$key}->{money} . "\n";
    }
}

sub usage {
    print( "Usage $0 /path/to/existing\n" . "\n" . "\tupdated file is output to STDOUT\n" );
}

1;