$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};