$val = unshift ( @{$a->[$i]} );
This is sloppy, there has to be a better way. But here is at least one solution...
use strict; for $i(1..4) { for $j($i+1..5){ no strict 'refs'; if ([eval{"\@a$i"}]->[0] == [eval{"\@a$j"}]->[0]){ print "Matched one!\n"; last}; }; };
In reply to Re: Using eval to build array structure
by ehdonhon
in thread Using eval to build array structure
by Popcorn Dave
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |