#/usr/bin/perl
#
use strict;
use warnings;
use Text::CSV;


my @chaseArray;
my $chaseCSV = Text::CSV->new ({ binary => 1 });
open my $inFile, '<', "chase.csv" or die $!;

my @chaseList;
my ($cCosts, $cShip, $cGrovery, $cSocial, $cMonthly, $cMisc, $cShopify, $cEtsy, $cPaypal, $cVenmo, $csMisc, $cTotal) = 0;
while (my $row = $chaseCSV->getline ($inFile))
{

        @chaseList = @$row;
        my $month = substr ($chaseList[1], 0, );

    if ( $chaseList[2] =~ /.*Shopify.*/ )
        {
            my $temp = $chaseList[3] + %@chaseArray[$month]{Shopify};
            #          @%chaseArray[$month]{Shopify} += $chaseList[3];
            %@chaseArray[$month]{Shopify} = $temp;
        }

}

print Dumper \@chaseArray;