my @tmpl = ( [0,0,0, 'A'],
              [1,0,0, 'B'],
              [2,0,0, 'B'],
              [3,0,0, 'B'],
              [4,0,0, 'B'],
              [5,0,0, 'A'] );