use Optionmenu;

my $selected;

    $opt = $w->Optionmenu(
                        -options => [$val1,$val2,$val3],
                        -command => sub{ print $selected,"\n"},
                        -variable => \$selected,
                        );

print "Ausgewählt: $selected\n";