#! /usr/bin/perl -w
use strict;
use feature ':5.10';

my @array = qw/ eins zwei drei /;

while ( @array ) {

        my $count = 1;
        print $count++, " ", $_, "\n" for @array;
        
        print "Auswahl: ";
        chomp ( my $aw = <STDIN> );
        
        given( $aw ) {
                when ( 1 ) { print "eins\n\n"; }
                when ( 2 ) { print "zwei\n\n"; }
                when ( 3 ) { print "drei\n\n"; }
                default { exit; }
        }
}