my $year = --$year;

##</code><code>##

my $year = $year - 1;