my @A=(
    [2, 2, 2],
    [2, 2, 2],
    [2, 2, 2],
  );