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

print $count++, " $_\n" for @array;

print "\neins\n\n" if $aw == 1;
print "\nzwei\n\n" if $aw == 2;
print "\ndrei\n\n" if $aw == 3;

1 eins
2 zwei
3 drei
Auswahl: exit
Argument "exit" isn't numeric in numeric eq (==) at /home/mm/perl/tesdt.pl line 18, <STDIN> line 1.

scalar @array

@array = qw( a b c );

# $#array == 2
# scalar @array == 3

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

$ perl -lw
use strict;
my $aw = 'rimbel';

if ( int($aw) == 1 ) {
  print "aha";
}

Argument "rimbel" isn't numeric in int at - line 4.