my @alphabet = (q{a} .. q{z});

##</code><code>##

chomp(my $hladane = <STDIN>);

##</code><code>##

$slovo = $alphabet[$nummer];

##</code><code>##

$ perl -le '$let = q{a}; $let ++; print $let;'
b
$