#!/usr/bin/perl

@passwd = ("toor","pass2","xyz");

#Zähler für die Schleifendurchläufe:
$i = 0;

while($i < 3) {
print "Passwort eingeben: ";
$pw = <STDIN>;
chomp($pw);


foreach(@passwd)

# Test der Variableninhalte:
{print "DollarS: $_ ";
print "DollarPW: $pw \n"
}

  if ($pw eq $_)  
{ print "accepted! \n";
  last; }

    $i++;

if ($i == 3)
{print "Eingabe ist nur 3 mal möglich. \n Das Script wird nun beendet. \n";}
}