$top_f->destroy if Tk::Exists($top_f);
with
$top_f->packForget( ) if $top_f->ismapped;