$frm_current->BrowseEntry(
            -variable   => \$CURRENT{PLATFORM_FIELD},
            -width      => 11,
            -font       => $font,
            -background => $bgColor,
            -state      => 'normal',
            -choices    => [@PLATFORM_LIST]
        ),
#etc

...

sub displayFeed {
	
    # $path is from a Hlist path which is the key into hash

    my $path = shift;

    my %C = %{$FEEDS{$path}{formFields}};

    # checked %C and %CURRENT and all values are present 
    # after this loop

    for ( keys %C ){
        
        $CURRENT{$_} = $C{$_};
    }
    
    # still no update of the form after this update  

    $mw->update;

    return