sub assign_hideable_widgets {
    my ($a_reveal) = @_;

    # Return if no hideable regions defined
    @$a_reveal or return;

    # Save all hideable regions
    my $a_all      = [ ];  # List of all widgets
    my $h_seen     = { };  # Hash all widgets seen
    my $h_reveal   = { };  # Maps RadioButton to widgets to reveal
    my $h_packinfo = { };  # Saves each widget's pack information

    # Create closure to hide/reveal desired regions
    my $c_hide = sub {
        my ($rb) = @_;

        # First, unpack everything
        map { $_->packForget } @$a_all;

        # Next, pack selected widgets for this RadioButton
        my $a_reveal = $h_reveal->{$rb};

        foreach my $w (@$a_reveal) {
            my $a_pack = $h_packinfo->{$w};
            $w->pack(@$a_pack);
        }
    };

    # Iterate each RadioButton and the widget(s) it reveals
    foreach my $a_item (@$a_reveal) {
        my ($rb, $a_reveal) = @$a_item;
        $h_reveal->{$rb} = $a_reveal;

        # Save all widgets and their pack info
        foreach my $w (@$a_reveal) {
            $h_seen->{$w}++ or push @$a_all, $w;
            $h_packinfo->{$w} = [ $w->packInfo ];
        }
        $rb->bind("<Button-1>" => sub { $c_hide->($rb) });
    }
}