my @key = map { [qw/A B C D E F G H/]->[$_],
                [qw/7 6 5 4 3 2 1 0/]->[$_]
              } 0 .. 7;