my @liste = ('A'..'K');
@liste2 = map { ++$_ } @liste;
print "@liste2\n"; # gut und schoen, aber:
print "@liste\n";