#! /usr/bin/perl -w
use strict;


my @array = qw/ eins zwei drei /;

while ( @array ) {

        my $count = 1;

        foreach ( @array ) {
                print $count++, " ", $_, "\n";
        }
        
        print "Auswahl: ";
        chomp ( my $aw = <STDIN> );
        
        print "\neins\n\n" if $aw == 1;
        print "\nzwei\n\n" if $aw == 2;
        print "\ndrei\n\n" if $aw == 3;
        exit if $aw eq 'exit';
}