#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $db = tkinit->DialogBox;
my $init = q{inits};
my @choices = ( 1, 2, 3 );
$db->BrowseEntry(
    -variable,
    \$init ,
    -choices, \@choices,
)->pack; 
$db->Show;

##</code><code>##

my @choices = ( '', 1 , 2, 3 );
$init = $choices[0];