$VAR1 = { '1' => { 'due_date' => '11/28/2007 15:54', 'balance' => '482.29', 'account' => 'ar161429' }, '3' => { 'due_date' => '10/23/2007 15:54', 'balance' => '887.78', 'account' => 'ar106644' }, 'id' => { 'due_date' => 'balance_due', 'balance' => 'balance', 'account' => 'account_number' }, '2' => { 'due_date' => '10/9/2007 15:54', 'balance' => '266.93', 'account' => 'ar182364' } }; #### $VAR1 = { '21' => { 'account' => 'ar465032', 'cdate' => '1/2/2007 15:36', 'name' => 'Justine Lafortune', 'odue' => '' }, '7' => { 'account' => 'ar161429', 'cdate' => '3/7/2007 15:36', 'name' => 'Woody Harding', 'odue' => '0' }, '10' => { 'account' => 'ar182364', 'cdate' => '12/1/2006 15:36', 'name' => 'Mayson Gettemy', 'odue' => '1' }, 'id' => { 'account' => 'account_number', 'cdate' => 'created_date', 'name' => 'name', 'odue' => 'overdue' }, '20' => { 'account' => 'ar106644', 'cdate' => '4/6/2007 15:36', 'name' => 'Reina Garratt', 'odue' => '1' } }; #### #!/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; }