Select Code to Download

my $measurements = { 
                    'MeasurementA' => {
...
                                      },  
                   };

foreach my $measurement ( sort keys %{ $measurements } ) { 
  print "Measurement: $measurement\n";
...
    print "    Value: $measurements->{ $measurement }->{ $try }->{'Val
+ue'}\n";
  }
}

Measurement: MeasurementA
  Try: 1
...
  Try: 1
    Date:  DateC
    Value: 3A

foreach my $measurement ( sort keys %{ $measurements } ) { 
  print "$measurement -- ";
...
  }
  print "\n";
}

MeasurementA -- DateA: 1A 
MeasurementB -- DateB: 3A  -- DateD: 2A  -- DateE: 5A 
MeasurementC -- DateC: 3A