print "\nHallo $name, bitte geben Sie Ihr Passwort ein: \n";
15: chomp ($password = <>);
16: 
17: while ($passwords{$name} eq {$password}) 
18: {
19:         print "\nDas Passwort ist nicht richtig. Bitte versuchen Sie es erneut:\n";
20:         chomp ($password = <>);
21: }
22: 
23:         print "\nDas Passwort ist richtig. Herzlich Willkommen, $name!\n";

while ($passwords{$name} ne $password) 
{
        print "\nDas Passwort ist nicht richtig. Bitte versuchen Sie es erneut:\n";
        chomp (my $password = <>);
}
 
        print "\nDas Passwort ist richtig. Herzlich Willkommen, $name!\n";

#!/Perl/bin/perl

use strict;
use warnings;

my $correct_password = "known";
my $password_is_correct = 0;

print "Bitte gib das Passwort ein.\n";
my $password = <STDIN>;
chomp($password);

while( $password_is_correct != 1 ) {
    if( $password eq $correct_password ) {
        print "Eingabe ok. Haste toll gemacht!\n";
        $password_is_correct = 1; # beendet die while-schleife im nächsten Durchlauf
    }else{
        print "Falsch geraten, bitte gib das Passwort ein.\n";
        # passwort erneut eingeben
        $password = <STDIN>;
        chomp($password);
    }
}

print "ende";