I actually just figured it out. By passing the $tx variable to the module and using:

I use that after each print statement in the loop, at this time I see no loss in performance, if there is, it is insignificant with the data I am working with

Thanks for all your help guys, if I end up having problems with this, I will consult the alternatives in this thread (they seem a little more complex, I just started using Perl Tk, so I got a lot to learn)