small perl script fix

I have a small perl script which needs a small fix. The script should show a balance in a part? where it is always shown zero. All the code is zero and probably it is not working for a small problem. If you are perl programmer , you can just look at the code and fix it. The problem in shown the in the image and the script is attached. Look forward to your bidding.