foreach my $measurement ( sort keys %{ $measurements } ) { 
  print "$measurement -- ";
  foreach my $try ( sort keys %{ $measurements->{ $measurement } } ) { 
    print "$measurements->{ $measurement }->{ $try }->{'Date'}: $measurements->{ $measurement }->{ $try }->{'Value'} ";
    last if $try == scalar keys %{ $measurements->{ $measurement } };
    print " -- ";
  }
  print "\n";
}