#! /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; }
	}
}