#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $tableName = 'hist';

unlink $tableName;
open my $resFile, '>', $tableName;
print $resFile <<DATA;
e_id,cus,ta,gd1,gd2
Joe,A,1,85,90
Joe,A,1,80,99
Joe,A,2,50,70
Joe,A,2,60,65
Joe,A,2,87,89
Joe,B,1,82,92
Joe,B,3,30,51
Rob,A,1,64,77
Rob,B,2,20,32
DATA
close $resFile;

my $dbh = DBI->connect("DBI:CSV:") or die $DBI::errstr;
my $sth = $dbh->prepare("SELECT * FROM $tableName");

$sth->execute();

my $query = $dbh->selectall_arrayref(
    "select e_id, cus, ta, gd1, gd2 from $tableName order by e_id, cus, ta",
    {Slice => {}});
my $gd1Total;
my $gd2Total;
my $currGroup;

for my $row (@$query, {map {$_, 0} qw(e_id cus ta gd1 gd2)}) {
    my $group = join ',', @{$row}{qw(e_id cus ta)};

    $currGroup = $group if !defined $currGroup;

    if ($group ne $currGroup) {
        print "  Total $gd1Total, $gd2Total\n";
        $gd1Total = $gd2Total = 0;
        $currGroup = $group;
        last if $group eq '0,0,0';
    }

    print +(join ', ', @{$row}{qw(e_id cus ta gd1 gd2)}), "\n";
    $gd1Total += $row->{gd1};
    $gd2Total += $row->{gd2};
}

exit;