sub isNorth {
  # Passed x & y coords, determines if able to go north
  my($x,$y) = @_;

  if($grid[$x][$y] =~ /n/) {
    return 1  # Can go north, return 1 for true
  } else {
    return 0  # Can't go north, return 0 for false
  }
}

sub isSouth {
  # Passed x & y coords, determines if able to go south
  my($x,$y) = @_;

  if($grid[$x][$y] =~ /s/) {
    return 1  # Can go south, return 1 for true
  } else {
    return 0  # Can't go south, return 0 for false
  }
}

sub isEast {
  # Passed x & y coords, determines if able to go east
  my($x,$y) = @_;

  if($grid[$x][$y] =~ /e/) {
    return 1  # Can go east, return 1 for true
  } else {
    return 0  # Can't go east, return 0 for false
  }
}

sub isWest {
  # Passed x & y coords, determines if able to go west
  my($x,$y) = @_;

  if($grid[$x][$y] =~ /w/) {
    return 1  # Can go west, return 1 for true
  } else {
    return 0  # Can't go west, return 0 for false
  }
}