my @key = map { 
    [qw/A B C D E F G H/]->[$_],
    [qw/7 6 5 4 3 2 1 0/]->[$_]
} 0..open(F,$0)&&($_=join('',<F>))&&/map\s*{\s*(\[.*?\])/s&&
     eval"\$#{$1}";
              
print "@key";

die "Not recommended for production code!!";
[download]