use strict;
use warnings;
use HTML::Template::Compiled;
my $htc = HTML::Template::Compiled->new(
    filehandle => \*DATA,
    plugin => [qw(::HTML_Tags)],
);

my $jahr = 2027;

my @values = map { [ $_, $_ ] } 2007 .. 2059;
$htc->param( years => [ $jahr, @values] );
print $htc->output;

__DATA__
<form method="post" action="index.pl ">
<select name="JAHR">
<%html_option years %>
</select>
</form>