for my $mon ( sort keys %months ) {
	for my $week ( sort keys %{ $months{$mon} } ) {
		if ( exists $limits{$mon} && exists $limits{$mon}{$week} ) {
			my $value = $months{$mon}{$week};
			my $upper = $limits{$mon}{$week}{U1};
			my $lower = $limits{$mon}{$week}{L1};
			printf "%6.2f <= %6.2f <= %6.2f - ",
			        $lower,  $value,  $upper;
			if ( $value >= $lower && $value <= $upper ) {
				print "OK\n";
			}
			else {
				print "NOT ok\n";
			}
		}
		else { warn "No limits for month $mon / week $week\n" }
	}
}