Got started on tiles perl script