sub draw_grid {
    print "# Wacky Fun Minesweeper!!!!\n";
    for my $x (0..9) {
        print $x, ' ';
        for my $y (1..9) {
            if ($x == 0){
                print $y, ' ';
            }
            else {
                print $blankgrid[$x][$y], ' ';
            }
        }
        print "\n";
    }
}

##</code><code>##

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