アルファベットの繰り上がり

こんなのがあるんですね→どう書く？org。
もっとも手っ取り早い方法だとこう？

print join ", ", ("A".."CV");

でも、これだと1から100というのが見えない。
これなら、数値の範囲が分かり易いかな。

print join ", ", map { $a = "A"; for (2..$_) { $a++ } $a } (1..100);

しかし、これは非常に見苦しいですね。もうPerl忘れかけです...