Is it perhaps the Optionmenu you want?

For example:

#!/usr/bin/perl -w
                                                                      
+          
use strict;
use warnings;
                                                                      
+          
use Tk;
                                                                      
+          
my @days = qw(
    Sunday Monday Tuesday Wednesday Thursday Friday Saturday
);
my $day = "Sunday";
                                                                      
+          
my $mw = MainWindow->new;
my $fr = $mw->Frame()->pack();
my $om = $fr->Optionmenu(-variable => \$day, -options => \@days,
                         -command => sub { use_day() } )->pack();
MainLoop;
                                                                      
+          
                                                                      
+          
sub use_day {
    print "The day you chose is ... $day\n";
}
[download]