Procedural map generation using Perlin noise. How to improve?