my @myList = (
	{label => "a", value => '0'},
	{label => "d", value => '3'},
	{label => "f", value => '5'},
    );
	
	$m->out( '<select name="myselectlist">' ); 	
    for ( @myList)
    {
    $m -> out(qq(<option value=").$_->{value} . qq(">) . $_->{ label } . qq(</option> ));
    }
    $m->out(</select>);