updated perlin noise example