Marching Cubes Implementation using perl