use List::Util qw( min max );

my $max_y = max keys %Year;
my $max_m = max keys %{ $Year{$max_y} };

my $min_y = min keys %Year;
my $min_m = min keys %{ $Year{$min_y} };