use strict;
use warnings;
use Tk;

my $mw = tkinit;
my $be = $mw->BrowseEntry->pack;
my $l = $be->Subwidget('slistbox')->Subwidget('scrolled');
my @content;
tie @content,'Tk::Listbox', $l;
@content = qw/apple
              banana
              orange
             /;
$mw->Button(-text => 'change',
            -command => sub{ @content = qw/Paris
                                           Tokyo
                                           London
                                           /;
                         },
            )->pack;
MainLoop();