in reply to Perl Tk Forgetting a Widget
Make the variable $tx as global and try destroy I have tried similar scenario with the checkbuttons it worked.