http://www.perlmonks.org?node_id=1004167


in reply to Re^2: merging anonymous arrays
in thread merging anonymous arrays

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

[download]


When's the last time you used duct tape on a duct? --Larry Wall

In Section Seekers of Perl Wisdom