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('',))&&/map\s*{\s*(\[.*?\])/s&& eval"\$#{$1}"; print "@key"; die "Not recommended for production code!!";