Re^3: merging anonymous arrays

[ColonelPanic]

There is always a way :)

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!!";