hab das gefühl das man da massig kürzen kann
schon allein mit @keys = qw(a d f g v x);
und dann würd ich so was ähnliches wie schwarzen trafo nehmen
hoffentlcih hab ich nichts übersehen aber:

@keys = qw(a d f g v x);
my (%trans, $row);
map {chomp; $trans{chop}= $keys[$row].$keys[$_] for 5..0; $row++} <DATA>;\n\n

<!--EDIT|lichtkind|1122163029-->