my @AoA = (
   [ '1', '2', '10' ],
   [ '3', '4', 5'  ],
   [ '6', '8', '11'  ],
   [ '0', '7',  '9'  ],
);

my @A = qw(0 0 0 0 1 2 0 0 1 0 1 0);