You should be able to emumerate the values of %clock like this:

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