#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dumper;
use Date::Calendar::Year;

my %balance;

my %account;

print "********** BALANCE DATA ***************\n";
bal_file();

print "********** ACCOUNT DATA ***************\n";
acct_file();

sub bal_file
  {
open my $bal_fh, '<', 'b.csv' or die "failed to open a.csv $!";

while (my $line = <$bal_fh>) {
    chomp $line;
    my ( $id,$account_number, $balance, $due) = split /,/, $line,4;
    $balance{$id} = {
        account  => $account_number,
        balance  => $balance,
        due_date => $due
    }
      
}
close $bal_fh;
print Dumper \%balance;
 }


sub acct_file
	{
open my $act_fh, '<', 'a.csv' or die "failed to open a.csv $!";
while (my $line = <$act_fh>) {
    chomp $line;
    my ( $id,$full_name,$created_date,$account_number, $overdue) = split /,/, $line,5;
    $account{$id} = {
        name  => $full_name,
        cdate  => $created_date,
        account  => $account_number,
        odue   => $overdue
    }
      
}
close $act_fh;
print Dumper \%account;
	}