ァからンまでの全部のカタカナのリストをsjisで作る時に、
@kana = ('ァ', 'ア', (中略), 'ン');
とやるのと同じことをもっと賢くやらせるにはどうすれば?