#!/usr/bin/perl

use strict;
use warnings;

my @passwd = ("toor","pass2","xyz");

#Zähler für die Schleifendurchläufe:
my $i = 0;

while($i < 3) {
    print "Passwort eingeben: ";
    my $pw_eing = <STDIN>;
    chomp($pw_eing);
    
    # merken, ob das Passwort gültig war
    my $gueltig = 0;
    
    # Test der Variableninhalte:
    foreach my $pwd (@passwd) {
        print "Passwort in Array: $pwd ";
        print "Passwort aus Eingabe: $pw_eing \n";
        
        if ($pw_eing eq $pwd) {
            print "accepted! \n";
            $gueltig = 1;
            last; # last für foreach-schleife
        }
        
    }
    
    last if $gueltig; # last für while-schleife
    
    # was macht das hier wohl....
    $i++;
    
    if ($i >= 3){ # >= ist besser, denn wer sagt, dass man $i immer nur um 1 erhöhen kann
        print "Eingabe ist nur 3 mal möglich. \n Das Script wird nun beendet. \n";
        exit(0); #dann machen wir das doch auch
    }
}