die "Y el fichero de clientes, ein?\n" unless $ARGV[0];
while(<>) {
  @linea = split;
  @fecha=split(/\//,$linea[$#linea]);
  $mesdia = "$fecha[1]-$fecha[0]";
  $pasta=$linea[$#linea - 2];
  $totalDia{$mesdia}+=$pasta;
}

foreach (sort keys %totalDia) {
  print "Trinque total del dia $_ = $totalDia{$_}\n";
}