$weather_archive{'2003'}{'April'}{'15'}{'High'} = '73f';
$weather_archive{'2003'}{'April'}{'15'}{'Low'} = '49f';
####
foreach $year ( sort keys %weather_archive ) {
print "$year\n";
foreach $month ( keys %{$weather_archive{$year}} ) {
print " $month\n";
foreach $day ( sort keys %{$weather_archive{$year}{$month}} ) {
print "$day\n";
foreach $measurement ( keys %{$weather_archive{$year}{$month}{$day}} ) {
print "$measurement: $weather_archive{$year}{$month}{$day}{$measurement}\n";
}
}
}
}
##
##
$weather_archive{$year}{$month}{$day}{$var} = $value;