my $possibilities = (3 ** $N) - 1;