my @alphabeth = 'a' .. 'z';

##</code><code>##

   my $letter = 'p';
   $letter++; # Now $letter is 'q'

##</code><code>##

   chomp(my $hladane = <STDIN>);