my $name = $frm->.....Button(-command=>
    sub{delete $hash{$name};$name->destroy()};