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