foreach my $source ( sort keys %source ) {
  print "$source\n\tcount: $source{$source}{count}\n";
  foreach my $action ( sort keys %{$source{$source}} ) {
    next if $action eq 'count';
    print "\t$action\n\t\tcount: $source{$source}{$action}{count}\n";
    foreach my $sub_action (sort keys %{$source{$source}{$action}} ) {
      next if $sub_action eq 'count';
      print "\t\t$sub_action\n\t\t\tcount: $source{$source}{$action}{$sub_action}{count}\n";
    }
  }
}