#!/usr/bin/perl

@files = `ls *.txt`;
foreach my $f(@files) {
   chomp($f);
   open(IN,"$f");
   while (my $l=<IN>) {
      next if ($l =~ /^#/);
      chomp($l);
      my($dat,$hit,$dld,$usr)=split(/\t/,$l);
      my($yr,$mo,$dy)=split(/\-/,$dat);
    # $AHASH{$yr}{$mo}=$hit; #-                               for 'hits'
      $AHASH{$yr}{$mo}=$dld; #- Run one of these 3 at a time: for 'download' respectively
    # $AHASH{$yr}{$mo}=$usr; #-                               for 'users'
      $YR{$yr}++;
      $MO{$mo}++;
   }
   close(IN);
}
foreach my $m(sort keys %MO) { print "|$m"; } print "\n";
foreach my $yr(sort keys %AHASH) {
   print "$yr";
   foreach my $mo(sort keys $AHASH{$yr}) {
      print "|$AHASH{$yr}{$mo}";
   }
   print "\n";
}