#!/usr/bin/perl -w

use strict;

use Data::Dumper;
#use CGI;
#use CGI::Carp qw(fatalsToBrowser);
#use HTML::Template;

#my $template = HTML::Template->new( filename => '1.tmpl' );
#my $cgi      = CGI->new();

sub build_selectbox {
    my ($l_name, $selected, @options) = @_;
    return { $l_name => [ map { 
        { 
            selectbox_label => $options[$_],
            selectbox_value => $_,
            selectbox_selected => $selected == $_ ? 1 : 0,
        } 
    } (0 .. $#options) ] };
}

my @a_array = ( '---', 'Berlin', 'Wien', 'Bern' );
die Dumper &build_selectbox( 'loop_kursort', 2, @a_array );
# $template->param( build_selectbox( 'loop_kursort', 2, @a_array ) );
# print $template->output;