# dein Code, unschön:
while ($zeile = <LESEN>)
{
chomp($zeile);
($username, $userpasswort) = split(/,/, $zeile);
if ($name eq $username && $passwort eq $userpasswort)
{
$login = 1;
last;
}
}

# zum Vergleich, selber Code, eingerückt:
# (so mache ich das gerne)
while ($zeile = <LESEN>) {
    chomp($zeile);
    ($username, $userpasswort) = split(/,/, $zeile);
    if ($name eq $username && $passwort eq $userpasswort) {
        $login = 1;
        last;
    }
}

# eingerückt, mit anderem Klammer-Stil:
while ($zeile = <LESEN>) 
{
    chomp($zeile);
    ($username, $userpasswort) = split(/,/, $zeile);
    if ($name eq $username && $passwort eq $userpasswort) 
    {
        $login = 1;
        last;
    }
}