#!/usr/bin/env perl
use strict;
use warnings;
use 5.10.1;
use Term::Choose qw(choose);

my $prompt = '';
for my $i ( 1 .. 9 ) {
    $prompt .= "Das ist die $i. Prompt Zeile" . " $i$i$i$i$i$i" x 100 . "\n";
}

my $choice = choose( [ 1 .. 10000 ], { prompt => $prompt } );
say $choice;