use List::Util qw( min max );

my $min = min map { min values %{$Year{$_}} } keys %Year;
my $max = max map { max values %{$Year{$_}} } keys %Year;