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"; } } #### element 0 0 is ARRAY(0x1706998) element 0 1 is ARRAY(0x1745880) element 0 2 is ARRAY(0x1742368)