working on bf interpreter in perl