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";