for (my $y = $year; $y <= $year + 9; $y++) {
    print "<option value = '$y'>$y</option>\n";
}