for my $y ($year .. $year + 8) { # this is inclusive
  print "<option value = '$y'>$y</option>\n";
}

##</code><code>##

print "<option value = '$_'>$_</option>\n"
  for $year .. $year + 8;