Select Code to Download

$weather_archive{'2003'}{'April'}{'15'}{'High'} = '73f';
$weather_archive{'2003'}{'April'}{'15'}{'Low'} = '49f';

foreach $year ( sort keys %weather_archive ) {
  print "$year\n";
...
    }
  }
}

$weather_archive{$year}{$month}{$day}{$var} = $value;