Select Code to Download

- <AnnualWeatherRecord>
- <DailyWeatherRecord>
...
  <totalrainfall unit="mm" number="0.5" /> 
  </MonthlyWeatherRecord>
  </AnnualWeatherRecord>

sub MonthlyMaxTempSpellMessage{

...
  for my $aref ( @data ) {
     print "\t [ @$aref ],\n";
   }

my $monthmts=1;
MonthlyMaxTempSpellMessage($monthmts);