$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;