foreach $key (keys %$forecast) {
	$fcast .= "$key: $forecast->{$key}<P>\n";
}