my $verschiebung = 1;
my $z = 'a';
my $nz = chr((ord($z)+$verschiebung));