Help for this page
my $j=0; while ($j < $#AoA+1) { ... my $a = $var[1]; my $b = $var[2]; }
$VAR1 = [ [ ... 'b5' ] ];