use warnings;
use strict;

print "Tell me your Password (numbers only, max 5 chars) \n";

my $lf = <stdin>;
my $nummer = 0;
print "$nummer \n";


until ($nummer == $lf) 
{
$nummer = $nummer + 1;
print "$nummer \n";
chomp($nummer)
}
print "GOTCHA $lf !!! \n";


##</code><code>##

use warnings;
use strict;

my @alphabet = ("a", "b", "c" , "d", "e", "f", "g" , "h" , "i" , "j" , "k" , "l" , "m" , "n" , "o" , "p" , "q" , "r" , "s" , "t" , "u" , "v" , "x" , "y" , "z");
my $nummer = 0;
my $slovo;

print "Tell me your pass (only small alphabet only ONE a-z)";
my $hladane = <stdin>;

print "$alphabet[$nummer] \n";
$alphabet[$nummer] = $slovo;

while ($slovo ne $hladane)
{
$nummer = $nummer + 1;
print "$alphabet[$nummer]\n";
$alphabet[$nummer] = $slovo;
chomp($hladane);
}
print "GOTCHA $hladane !!! \n";