What is it supposed to do, compared to what it is currently doing? If it isn't a finished working script, you probably should have posted this as a question instead of a Code Contribution.

The first thing to do is enable strict, all you need to do is put a "my" before $label on line 52.

Otherwise it runs for me, but what sort of calculations is it supposed to perform?