#!/usr/bin/perl

use strict;
use warnings;
use HTML::Template::Compiled;

my $template = HTML::Template::Compiled->new(
    filehandle => *DATA,
);

my @values;
my $jahr = 2027;

for( 2007 .. 2059 ){
    # fuege die Hashreferenz fuer jede Option hinzu
    push @values, {
        year     => $_,
        selected => $_ == $jahr,
    };
}

$template->param( JAHRE => \@values );
print $template->output;


__DATA__
<form method="post" action="index.pl ">
<select name="JAHR">
<%loop JAHRE%>
    <option <%if selected%>selected<%/if%>><%var year %></option>
<%/loop%>
</select>
</form>