#!/usr/bin/perl –w

my %passwords = (
    Peter => "Peter1",
    Chris => "Chris1",
	Sven => "Sven1",
	Mike => "Mike1",
	Julian => "Julian1",
	);
	
print "\nBitte geben Sie Ihren Benutzernamen ein: \n";
chomp ($name = <>);

print "\nHallo $name, bitte geben Sie Ihr Passwort ein: \n";
chomp ($password = <>);

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