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