#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
use Tk::BrowseEntry;

my $mw = tkinit();

sub createbe
{
   my($num, $values) = @_;    # pick parameters

   # create BrowseEntry
   my $be = $mw -> BrowseEntry(-background => 'white')->pack();
   $be->{MY_VAR} = $values->[$num];
   $be -> configure(-variable => \$be->{MY_VAR});

   # insert values
   foreach (@$values)
   { $be -> insert('end', $_) }

   # return BrowseEntry
   return $be;
} # createbe

createbe(0, ['A'..'Z']);
createbe(1, ['a'..'z']);
createbe(2, [ 1 .. 9 ]);

MainLoop;