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";
 }