Select Code to Download

use HTML::Template::Compiled;
my $htc = HTML::Template::Compiled->new(
...
      map { [$_, $_] } qw(Berlin Hamburg North_Adams)],
);
print $htc->output;

<select><option value="Berlin" >Berlin</option>
<option value="Hamburg" selected="selected">Hamburg</option>
<option value="North_Adams" >North_Adams</option></select>

my @cities = qw(Berlin Hamburg North_Adams);
my $htc = HTML::Template::Compiled->new(
...
        map { [$_, $cities[$_]] } 0..$#cities],
);
print $htc->output

<select><option value="0" >Berlin</option>
<option value="1" selected="selected">Hamburg</option>
<option value="2" >North_Adams</option></select>