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

my @choices = choose( [ qw( eins zwei drei vier fünf ) ] );

say "@choices";