#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my %saldi;

while (<>) {
  chomp;
  next unless $_;
  my @cellen = ( split /,/, )[ 3, 4 ];
  next unless $cellen[0] && $cellen[1];
  $saldi{ $cellen[0] } += $cellen[1];
}

$ARGV =~ m/^(\S+)\.txt/;
print "$1\n";
foreach my $name ( keys %saldi ) {
  print "\t$name\t$saldi{$name}\n";
}