If I only look at your sample data, you could use a formula instead of a translation table:

my $new = ord( uc $old ) - 64;
[download]

For your more general question, I would suggest to translate your table into a hash of hashes and use XML::Simple to read and write the data.