sub printit {
  # print the hash
  print "\n======== BEGIN $label =========\n";
  foreach my $year ( sort keys %{$reports} ) {
    print "$year: \n";
    foreach my $quarter(sort keys %{$reports->{$year}}){
      print "  $quarter: \n";
      foreach my $file (sort keys %{$reports->{$year}{$quarter} } ) {
        print "    Filename:    $file\n";
        print "    Title:       $reports->{$year}{$quarter}{$file}{title}\n";
        print "    Description: $reports->{$year}{$quarter}{$file}{description}\n\n";
      }
    }
  }
  print "\n======== END $label =========\n";
}