foreach my $key (sort keys %clocks){
  print_clock_assertions(\{ $clocks{'$key'} });
}

sub print_clock_assertions {
  my($hashref)=$_[0];
  print STDOUT "ref 1 :$hashref->{'speed'}\n";
}