#! /usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;

my $mw = MainWindow->new();

my @entries = qw(Januar Februar Maerz April Mai Juni Juli);
my $var;
my $be = $mw->BrowseEntry(-label => 'TestBrowser', -variable => \$var)->pack();

$be->insert('end',$_) for(@entries);

MainLoop;