Simplify perlin noise example
Update to use new for loop protocol, and fix for new `as` binding rules