Die Doku zu Tk::Toplevel verweist für die Methoden auf Tk::Widget und da steht zu $widget->destroy():
Quote
he perl object $widget continues to exist while references to it still exist, e.g. until variable goes out of scope. However any attempt to use Tk methods on the object will fail. Exists($widget) will return false on such objects.