#234567
1#34567
12#4567
123#567
1234#67
12345#7
123456#

##</code><code>##

@numbers = (1..8);
for ( 0 .. 7 ) {
    @outer = @numbers;
    $outer[$_] = '#';
    for ( 0 .. 7 ) {
        @inner = @outer;
        unless ( $inner[$_] eq '#' ) {
            $inner[$_] = '#';
            print @inner, $/;
            $count++;
        }
    }
}

print "$count possible winning combinations\n";


##</code><code>##

##345678
#2#45678
#23#5678
etc

##</code><code>##

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print