#Guess Password Program for Perl
$password = "perlclass";
print"What is the password to access the system\n";
$count = 0;
@wrongPasswords[4] = ();
while($guess ne $password && $count != 4 ){
$guess = <stdin>;
chomp($guess);


if($guess eq $password){

print"You have unlocked the program\n";

}#ends if statement

else{
push(@wrongPasswords,$guess);


if($count != 3){

print"Sorry wrong choice! Try again\n";



}#ends if 
else{


print"\nYou have enter too many passwords!\nProgram Locked!!\n";
print"Here are the passwords that were entered\n";
print"@wrongPasswords\n";

}#ends 2nd else
}#ends 1st else

$count++;
};#ends while loop

system("pause");