package MySample;
sub build_dropdown
{
    #     build_dropdown(  \$DataObject , 'key_function', 'text_function', 'Select A Header', 'preselectedValue' );
    my ($obj, $key_f, $text_f, $header, $preselected) = @_;

    my @xml;
    if ( $header )
    {
        push @xml , qq{<option value="">$header</option>};
        push @xml , qq{<option value="">==========</option>};
    }
    foreach my $id ( $obj->$key_f() )
    {
        my $sel = ( $id == $preselected ) ? ' selected' : '';
        push @xml , ("<option value=\"$id\"${sel}>" . $obj->$text_f($id) . '</option>');
    }
    return join "\n" , @xml;
}