use warnings; 
use Term::UI;
use Term::ReadLine;

my $term = Term::ReadLine->new( 'brand' );
my @arrayOfChoices = ( qw( Hans Jan Jannie Piet Klaas Truus ) );
my $reply = $term->get_reply(
        prompt => 'select a name',
        choices => \@arrayOfChoices,
);
print $reply;