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