$e_pilot = $frm_current->Entry(
            -textvariable    => \$CURRENT{PILOT_FIELD},
  )->pack();

store(%\CURRENT, "FEED_FILE");
...
$f = retrieve('FEEDS_FILE') or warn "unable to retrieve FEEDS from FEED_FILE$! \n" unless defined $f;
%CURRENT = %{$f};

##</code><code>##

        $e_cs_search->configure( -textvariable=>\$CURRENT{PILOT_FIELD} );
        $mw->update;