use strict;
use warnings;
use Curses::UI;

my $cui = new Curses::UI;
my @a = qw(eins zwei drei vier fuenf sechs sieben);

my $r = $cui->dialog
                (
                  -title => "Widget",
                  -message => "Bitte waehlen:",
                  -buttons => [map {{-label=>$_}} @a],
                );

$cui->dialog("Ihre Wahl war $a[$r].");