Select Code to Download

sub valid_set {
    my($p, $known) = @_;
...
    [ 2, [2, undef, undef, undef, 2]],
    [ 3, [1, 0, 0, 1, 0, 0, 1]],
);