for my $key (sort keys %clocks) {
  for my $subkey (sort keys %{$clocks{$key}}) {
    print "clocks/$key/$subkey = $clocks{$key}{$subkey}\n";
  }
}