@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";