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

	print "\nDas Passwort ist richtig. Herzlich Willkommen, $name!\n";