#!/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";