#!/usr/bin/perl
$ARGV[0] || die "ĄDime el nombre del fichero de clientes, cohone!\n";
while(<>) {
  @linea = split;
  @fecha=split(/\//,$linea[$#linea]);
  $pasta=$linea[$#linea - 2];
  $totalDia[$fecha[1]][$fecha[0]]+=$pasta;
}

for ( $i = 1; $i <= $#totalDia; $i++ ) {
  @dias = @{$totalDia[$i]};
  for ( $j = 1; $j <= $#dias; $j ++ ) {
    print "Trinque total del dia $j del $i = $totalDia[$i][$j]\n" if $totalDia[$i][$j];
  }
}