my %fred =
  (
    [1, 2, 3] => [1, 1, 0],
    [3, 4, 5] => [0, 1, 0],
    [0, 2, 4] => [1, 2, 1],
      :::
  );