my $nyear = (split '\s', localtime)[4]+1;

##</code><code>##

my $nyear = (localtime)[5] + 1;