I don't know where line 52 is? The best advice I can give you is to learn to build a little/test alot, add a little more, test some more that way when something breaks, you will know most likely where it broke right away. If something doesn't behave as you understand it, read the docs, insert print debug statements and use the debugger. I don't mind helping folks that have gone that far, none of us do. Buy that "Mastering Perl/Tk" book.. it is really an indespensible item.
JamesNC