use strict;
use warnings;

my @AoA_delta_table = [
['0','1','1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0'],
['0','1','1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0'],
['0','1','1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0']
];

for my $i ( 0 .. $#AoA_delta_table ) {
    for my $j ( 0 .. $#{$AoA_delta_table[$i]} ) {
        print "element $i $j is $AoA_delta_table[$i][$j]\n";
    }
}