Select Code to Download

sub draw_grid {
    print "# Wacky Fun Minesweeper!!!!\n";
...
        print "\n";
    }
}

    for my $x (1..9) {
        for my $y (1..9) {
...
            $grid[$x][$y] = 0;
        }
    }