my @aoa = (
  [0, 3,  2, 1],
  [1, 11, 1, 2],
  [5, -2, 0, 1],
);