do {
  my $a = [
    [[1, "a"], [2, "a"], [3, "a"]],
    [[1, "b"], [2, "a"], [3, "a"]],
    ['fix', [2, "b"], [3, "a"]],
    ['fix', [2, "b"], [3, "a"]],
    ['fix', 'fix', [3, "b"]],
    ['fix', 'fix', [3, "b"]],
    ['fix', 'fix', [3, "b"]],
    ['fix', 'fix', [3, "b"]],
  ];
  $a->[2][0] = $a->[0][0];
  $a->[3][0] = $a->[1][0];
  $a->[4][0] = $a->[0][0];
  $a->[4][1] = $a->[0][1];
  $a->[5][0] = $a->[1][0];
  $a->[5][1] = $a->[1][1];
  $a->[6][0] = $a->[0][0];
  $a->[6][1] = $a->[2][1];
  $a->[7][0] = $a->[1][0];
  $a->[7][1] = $a->[3][1];
  $a;
}