use Term::Choose qw(choose);

my @choices = choose(
    [ "foo", "bar", "baz" ],
    { prompt => "Ausgabe:", layout => 3 }
);