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