my @arr = qw(Hallo sie da !!!!);

$be = $mw -> BrowseEntry
  (-background => "white",
   -label => "Test:",
   -command => "exit",
   -state => "readonly",
   -colorstate => "normal",
   -choices => \@arr)->pack
  (-pady => 10,
   -padx => 10);

$be -> state ("normal");