Added first attempt to use Perlin