my $year = $year - 1;