#!/usr/local/bin/perl
use strict;	

use XML::Simple;

   my $xml = new XML::Simple;

   # read XML file
   my $data = $xml->XMLin("NumericalData-ACE-SWEPAM-HDF_PT64S.xml");

   # How many PhysicalParameters?
   my $npparams = scalar(@{$data->{NumericalData}->{PhysicalParameter}});
   print "$npparams\n";

   # print param_keys and display_formats
   for (my $ii=0; $ii<$npparams; $ii++) {
      my $pkey = $data->{NumericalData}->{PhysicalParameter}->[$ii]->{ParameterKey};
      my $dformat = $data->{NumericalData}->{PhysicalParameter}->[$ii]->{RenderingHints}->{DisplayFormat};
      print "$pkey  $dformat\n";
   }