Fixed experimentation perl script