Select Code to Download

use Algorithm::Combinatorics qw( combinations );
use Set::CrossProduct;
...
        }
    }
}

$_ = "[$_]" for @neighbour[ @$change_idx ];