use Tk;
use Tk::BrowseEntry;

my @items;
my $BrowseEntryindex;

my $mw = MainWindow->new();
$items[0]{'cmd'} = sub{print "First BrowseEntry Index Selected\n"};
$items[1]->{'cmd'} = sub{print "Second BrowseEntry Index Selected\n"};

#Need to set $BrowseEntryindex to the index number of the selected item in $dropdown
my $dropdown = $mw->BrowseEntry( -label => 'Items', -browsecmd => sub{ $items[$BrowseEntryindex]{'cmd'}; } )->pack;
$dropdown->insert('end', 'First');
$dropdown->insert('end', 'Second');
$mw->MainLoop;