Tk::Error: element "J" already exists at K:/Perl/site/lib/Tk.pm line 228.
 at K:/Perl/site/lib/Tk/Derived.pm line 467
 [\&main::doDBItable]
 (menu invoke)