Select Code to Download

use strict;
use warnings;
...

pp get_matrix(@colored);

[
  [[1, 7], [2, 6], [3, 5], [0, 4]],
...
  [2, 3, 0, 4, 1, 5, undef, 6],
  [3, 0, 4, 1, 5, 2, 6],
]