use strict;
use warnings;
use HTML::Template;
my $template = HTML::Template->new (arrayref => []);
my @cities = ("Seattle", "Odense", "Venice", "Lewes", "Olso");
$template->param (SelectCity => [map {{City => $_}} @cities]);
print $template->output();
__DATA__
Test Select