#!/usr/bin/winperl

use Tk;
use Tk::BrowseEntry;

$state = {
  one   => '',
  two   => '',
  three => '',
  four  => '',
};

$mw = MainWindow->new();

$mw->BrowseEntry(
  -label    => 'List One',
  -choices  => [qw(foo bar)],
  -variable => $state->{one},
)->grid(-padx => 5, -pady => 5);

$mw->BrowseEntry(
  -label    => 'List Two',
  -choices  => [qw(baz quux)],
  -variable => $state->{two},
)->grid(-padx => 5, -pady => 5);

# versus

$mw->BrowseEntry(
  -label    => 'List Three',
  -choices  => [qw(foo bar)],
  -variable => \$state->{three},
)->grid(-padx => 5, -pady => 5, -column => 2, -row => 0);

$mw->BrowseEntry(
  -label    => 'List Four',
  -choices  => [qw(baz quux)],
  -variable => \$state->{four},
)->grid(-padx => 5, -pady => 5, -column => 2, -row => 1);

MainLoop;