Select Code to Download

use Modern::Perl;
use Data::Dump qw/dump/;

...
Mario Att,00056789,022345,03/10/2010,ok@ok.com, MA,USA,40.00,outdated
Maria Smither,12345678,00051,02/11/2011,no email, MA,USA,750.00,outdat
+ed
Dan Smither,12345678,00051,02/11/2011,no email, MA,USA,250.00,outdated

{
  "00051"  => [1000, 2],
  "01122"  => [-120, 1],
...
  "44592"  => [100, 1],
}
Grand Total = 2360