#!/usr/bin/perl --
use strict; use warnings;
use Tk;
use Tk::BrowseEntry;
my %foo = (
  man => [ 'a'..'c' ],
  manl => "man label",
  manv => "",
  choo => [ 66 .. 69 ],
  chool => "choo label",
  choov => "",
);
my $mw = tkinit;
$mw->BrowseEntry(
  -choices => $foo{man},
  -label => $foo{manl},
  -variable => \$foo{manv},
)->pack;
$mw->BrowseEntry(
  -choices => $foo{choo},
  -label => $foo{chool},
  -variable => \$foo{choov},
)->pack;
$mw->MainLoop;

use Data::Dump;
dd \%foo;
__END__
{
  choo  => [66 .. 69],
  chool => "choo label",
  choov => 68,
  man   => ["a", "b", "c"],
  manl  => "man label",
  manv  => "b",
}